不小心便學會了電腦

my @matches = ( $str =~ /pa(tt)ern/ )
For example:

perl -le ‘@m = ( “foo12gfd2bgbg654” =~ /(\d+)/g ); print for @m’

Gives the output:
12
2
654

http://stackoverflow.com/questions/2304577/how-can-i-store-regex-captures-in-an-array-in-perl

perl, regex, regular expressions

Check It Out~

http://www.weitz.de/regex-coach/

some reference for regular expressions:

http://www.sdsc.edu/~moreland/courses/IntroPerl/docs/manual/pod/perlre.html

perl, programming, regex, regular expressions, Tools

#!/usr/bin/perl

@line=(’56’, ‘1234’, ’24’);

foreach(@line)

{

print “##”.check($_).”\n”;

}

sub check

{

$_[0]=~/.*(3).*/;

return $1;

}

perl, problem, programming, solution

orginal:

form->{var} = undef;
my $var;
if($form->{var}){
$var = $form->{var};
}else{
$var = 1;
}

example:

my $var = $form->{var} ? $form->{var} : 1;

$var = $form->{var} || 1;

if else, language, perl, programming, shorthand, syntax