>perl -E"$r=qr/a/; say ref($r) eq 'Regexp' ||0"
1
>perl -E"$r=qr/a/; say ref($$r) eq 'Regexp' ||0"
0
>perl -E"$r=qr/a/; say re::is_regexp($r) ||0"
1
>perl -E"$r=qr/a/; say re::is_regexp($$r) ||0"
1
1
>perl -E"$r=qr/a/; say ref($$r) eq 'Regexp' ||0"
0
>perl -E"$r=qr/a/; say re::is_regexp($r) ||0"
1
>perl -E"$r=qr/a/; say re::is_regexp($$r) ||0"
1
No comments:
Post a Comment