Re: unexpected: inside sub($1,$2) if do // then arguments will be changed

(Mnemonic: like \digits)

Try it like this: \(&mysub(<$1> <$2>));

#!/usr/bin/perl -slw

use strict;
use re 'debug';

sub mysub {
    die 'single word expected' if (my $name = shift @_)  =~ /^\w+$/;
    die 'single word expected' if (my $value = shift @_) =~ /^\w+$/;
}

my $str = 'abc def';
$str =~ /(\w+)\s+(\w+)/;
print "\(&mysub(<$1> <$2>))";
[download]

Comment on Re: unexpected: inside sub($1,$2) if do // then arguments will be changed Select or Download Code

Replies are listed 'Best First'.
Re^2: unexpected: inside sub($1,$2) if do // then arguments will be changed by chromatic (Archbishop) on Sep 12, 2011 at 04:49 UTC
Try it like this: \(&mysub(<$1> <$2>)); What does that do? Improve your skills with Modern Perl: the free book.	[reply]
Re^3: unexpected: inside sub($1,$2) if do // then arguments will be changed by Mr. Muskrat (Canon) on Sep 13, 2011 at 18:56 UTC
It's a dressed up version of this: `print "'$1' '$2'";`	[reply] [d/l]
Re^4: unexpected: inside sub($1,$2) if do // then arguments will be changed by chromatic (Archbishop) on Sep 13, 2011 at 20:27 UTC
Sure, but is the random collection of punctuation supposed to do something? Improve your skills with Modern Perl: the free book.	[reply]
Re^5: unexpected: inside sub($1,$2) if do // then arguments will be changed by Mr. Muskrat (Canon) on Sep 14, 2011 at 16:00 UTC