On Tue, Oct 21, 2008 at 10:43, Rob Dixon <[EMAIL PROTECTED]> wrote:
snip
snip
> use strict;
> use warnings;
>
> print join('', "@ARGV" =~ /[0-9]/g), "\n";
snip
The perl interpreter in my brain throws a syntax error on the line 4
character 15.
Since you have put your code out there here is mine:
#!/usr/bin/perl
use strict;
use warnings;
(my $digits = join "", @ARGV) =~ s/[^0-9]//g;
print "$digits\n";
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
