my $backup=$commandfile.".bak"; foreach $com (keys %hashnew) { $ARGV[0]="$backup"; $^I=".bak"; while (<>) { if ($hashnew{$com} == "all") { unless (/$hashnew{$com}/../\*\ Exit\ context\ \*/) { s/$com//g; } } if (/$hashnew{$com}/../\*\ Exit\ context\ \*/) { s/$com//g; } print; } }
In reply to Flip flop operator by sashac88
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |