Shell Programming and Scripting

a tab can be represented by a \t, or you can maybe use the syntax like

\s+ (one or multiple whitespace characters, spaces and tabs)..

when you google for "perl find metasymbols" you will find some more explaining about these options.

Thanks.. i will do a search on it..

Don't know what you exactly want, but sometimes is more easy to search for what you want than to exclude the things you don't want, remember there are many way's how you can solve the issues with perl.

im sorry about the last post.. it was some weird character i couldnt copy it properly... i have a question...
foreach my $file (@array) {
open(FILE,"<","$file");
while (my $line = <FILE>)
{
if ($line =~ /^*/){
print $line;
}
}
close(FILE);
}

im looking to print all the ripped contents from each file to other different files.. example... if im going through file1, file2, file3...filen .. im looking to write to file1_1, file2_1, file3_1, ... filen_1 .. something like that instead of print $line;

bare bones script:

Code:

open(my $in, 'infile.txt');
LOOP: while(<$in>){
   if (/COL1 COL2/) {
      print $_;
      while (<$in>) {
         print $_;
         last LOOP if (/100 z/);
      }
   }
}

see if you can figure out how to implement according to the rest of your requirements. If not, post back.

try to do some code next time.
one way.

Code:

#!/usr/bin/perl 
open(F, "<file") or die "cannot open file:$!\n";
while ( <F> ) {
 if ( /COL1 COL2/ .. /^$/ ) {
  print;
 } 
}
close(F);