[EMAIL PROTECTED] <> wrote:
: I wonder if someone could help me with this simple script.
:
: # doh.pl
: $ARGV[0] =~ s/\$/\\\$/;
: print "You got: $ARGV[0]";
:
: Then run the script:
: doh.pl $321
: You got: 21 --> Im expecting to get $321
When I run it on windows XP I get this.
You got: \$321
Deleting the regex line I get this.
#!/usr/bin/perl
use strict;
use warnings;
print "You got: $ARGV[0]";
__END__
You got: $321
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
