my @array1 = `cat $ARGV[0]`; my @array2 = 'cat $ARGV[1]'; my $read01 = 0; #$i = 'BIG TREE' my $read01 = 0; foreach my $i (@array1){ for(@array2){ chomp($i); $read01++ if $read01; s/./ . /g; if ($_ =~ /CREATE TABLE TEMP.$i/){ $read01 = 1; } $read01 = 0 if (/^----/) ; next if ($read01 == 1); next unless $read01; print "$_"; } }
In reply to between pattern search not working by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |