version 1.1, 2015/04/17 15:35:01
|
version 1.2, 2015/04/27 18:04:40
|
Line 350 sub replace_m {
|
Line 350 sub replace_m {
|
push(@variables, $1); |
push(@variables, $1); |
} |
} |
} |
} |
|
# this regexp is for " @a = ..." |
|
while ($text =~ /^[ \t]*\@([a-zA-Z_0-9]+)[ \t]*=/gm) { |
|
if (!string_in_array(\@variables, $1)) { |
|
push(@variables, $1); |
|
} |
|
} |
# this regexp is for " ($a, $b, $c) = ..." |
# this regexp is for " ($a, $b, $c) = ..." |
my @matches = ($text =~ /^[ \t]*\([ \t]*\$([a-zA-Z_0-9]+)(?:[ \t]*,[ \t]*\$([a-zA-Z_0-9]+))*[ \t]*\)[ \t]*=/gm); |
my @matches = ($text =~ /^[ \t]*\([ \t]*\$([a-zA-Z_0-9]+)(?:[ \t]*,[ \t]*\$([a-zA-Z_0-9]+))*[ \t]*\)[ \t]*=/gm); |
foreach my $match (@matches) { |
foreach my $match (@matches) { |