Shell Programming and Scripting

#!/usr/bin/perl

opendir(CURRENT,".");
@list = readdir(CURRENT);
closedir(CURRENT);

foreach $item (@list){
  if($item =~ /GX/){
    print "$item\n";
  }
}

if(-e $filename){
 open(FILE,"$filename");
 while(<FILE>){ print };
 close(FILE);

#!/usr/bin/perl -w

@files = <*>;
foreach $file (@files) {
  print $file . "\n";
}

#!/usr/bin/perl
while($x = <*>) {
    open(FILE,"$x") || die "Couldn't open $x for reading.\n";
    while(<FILE>){
        if(/GX/) {
            print "$x: $_";
        }
    }
}

ls -l | grep "^-" | awk '$0 ~/GX/ {print "cat "$NF }' | sh

#!/usr/bin/perl 
 
opendir(CURRENT,"."); 
@list = readdir(CURRENT); 
closedir(CURRENT); 
 
foreach $item (@list){ 
  if($item =~ /GX/){ 
    print "$item\n"; 
    system("cat $item");
  } 
}