#!/usr/bin/perl 
 
open(FILE, "file.txt"); 
open(FILEWRITE, ">filewrite.txt"); 
while($line = <FILE>){ 
   if ($line =~ /pin\((\w+)\)/){ 
      print FILEWRITE "$1\n"; 
   } 
} 
close FILE; 
close FILEWRITE;

#!/usr/bin/perl  
  
open(FILE, "file.txt");  
open(FILEWRITE, ">filewrite.txt");  
while($line = <FILE>){  
   if ($line =~ /pin\((\w+)\)/){  
      push(@matches, "$1"); 
   }  
}  
close FILE;  
close FILEWRITE;

#!/usr/bin/perl 
use strict; 
use warnings; 
 
my $dirname = "/eng/png/home/awhf/document"; 
chdir ($dirname) or die  "Can't chdir to $dirname: $!"; 
opendir(DIR, $dirname) or die "Cannot open directory: $!"; 
my @files = grep {/\.doc$/} DIR; 
close DIR; 
 
open (OUT,">>results.txt") or die "Can't open results.txt: $!"; 
{ 
   local @ARGV = @files; 
   while (<>) { 
      print OUT; 
   } 
} 
close OUT;

 #!/usr/bin/perl  
use strict;  
use warnings;  
my $dirname = "/eng/png/home/awhf/document";  
chdir ($dirname) or die  "Can't chdir to $dirname: $!";  
opendir(DIR, $dirname) or die "Cannot open directory: $!";  
my @files = grep {/\.doc$/}readdir DIR;  
close DIR;  
open (OUT,">>/eng/png/home/awhf/results.txt") or die "Can't open results.txt: $!";  
{  
   local @ARGV = @files;  
   while (<>) {    some where here 
      print OUT;  
   }  
}  
close OUT; 
 
 

#!/usr/bin/perl  
use strict;  
use warnings;  
  
my $dirname = "c:/";  
chdir ($dirname) or die  "Can't chdir to $dirname: $!";  
opendir(DIR, $dirname) or die "Cannot open directory: $!";  
my @files = grep {/\.txx$/} readdir DIR;  
close DIR;  
print "@files\n";  
open (OUT,">results444.txt") or die "Can't open results.txt: $!";  
{  
   local @ARGV = @files;  
   local $/ = undef; 
   while (<>) {  
      if ( /::START(.*?)::END/s ) { 
            print OUT $1;  
      }  
   } 
}  
close OUT;

  
 
 #!/usr/bin/perl    
use strict;    
use warnings;    
my $dirname = "/eng/png/home/awhf/document";    
chdir ($dirname) or die  "Can't chdir to $dirname: $!";    
opendir(DIR, $dirname) or die "Cannot open directory: $!";    
my @files = grep {/\.cas$/} readdir DIR;    
close DIR;    
print "@files\n";    
open (OUT,">>/eng/png/home/awhf/results") or die "Can't open results: $!";    
{    
   local @ARGV = @files;    
   local $/ = undef;   
   while (<>)    
 
   {    
      s/\s*(\w+).*/$1/;       
 
      if ( /::START(.*?)::END/s )       
 
      {          
 
        print OUT $1;       
 
      }    
 
   } 
 
} 
 
close OUT;

#!/usr/bin/perl     
use strict;     
use warnings;     
my $dirname = "/eng/png/home/awhf/document";     
chdir ($dirname) or die  "Can't chdir to $dirname: $!";     
opendir(DIR, $dirname) or die "Cannot open directory: $!";     
my @files = grep {/\.cas$/} readdir DIR;     
close DIR;     
print "@files\n";     
open (OUT,">>/eng/png/home/awhf/results") or die "Can't open results: $!";     
{     
   local @ARGV = @files;     
   local $/ = undef;    
   while(<>) { 
      if ( /::START(.*?)::END/is ) { 
         my $match = $1; 
         $match =~ s/^\s*(\w+).*$/$1/gm; 
         print OUT $match;        
      }     
   }  
}  
close OUT;

#!/usr/bin/perl      
use strict;      
use warnings;      
my $dirname = "/eng/png/home/awhf/document";      
chdir ($dirname) or die  "Can't chdir to $dirname: $!";      
opendir(DIR, '.') or die "Cannot open directory: $!";      
my @files = grep {/\.cas$/} readdir DIR;      
close DIR;      
print "@files\n";      
open (OUT,">>/eng/png/home/awhf/results") or die "Can't open results: $!";      
{      
   local @ARGV = @files;      
   local $/ = undef;     
   while(<>) {  
      while ( /::START(.*?)::END/isg ) {  
         my $match = $1;  
         $match =~ s/^\s*(\w+).*$/$1/gm;  
         print OUT $match;         
      }      
   }   
}   
close OUT;

 #!/usr/bin/perl       
use strict;       
use warnings;       
my $dirname = "/eng/png/home/awhf/document";       
chdir ($dirname) or die  "Can't chdir to $dirname: $!";       
opendir(DIR, '.') or die "Cannot open directory: $!";       
my @files = grep {/\.cas$/} readdir DIR;       
close DIR;       
 
open (OUT,">>/eng/png/home/awhf/results") or die "Can't open results: $!";       
{       
   local @ARGV = @files;       
   local $/ = undef;      
   while(<>) {   
      while ( /::START(.*?)::END/isg ) {   
         my $match = $1;   
         $match =~ s/^\s*(\w+).*$/$1/gm;   
         print OUT $match;          
      }       
   }    
}    
close OUT;

 #!/usr/bin/perl 
 print "enter name: "; 
 $name = <>; 
 open(FILE,$name); 
 while(<FILE>) 
 { 
   chomp; 
   @arr = split; 
   $file = @arr[0]; 
   open (FILEREAD, "<$file"); 
   open (FILEWRITE, ">>result2"); 
   while (<FILEREAD>) 
   { 
     s/\s*(\w+).*/$1/; 
     if (/^::pin/../^::delay/) 
     { 
       print FILEWRITE "$1\n"; 
     }   } 
 close FILEWRITE; 
 close FILEREAD; 
 } 
 close FILE;

#!/usr/bin/perl 
my $file = 'path/to/some/file.txt'; 
open(FILE,$file) or die "$!"; 
while(<FILE>)  
 {