Shell Programming and Scripting

#!/usr/bin/python
import os
os.chdir("/yourdir")
for files in os.listdir(os.getcwd()):
     for lines in open(files):
          firstquoteposition = lines.find('"')
          secondquoteposition = lines[firstquoteposition + 1:].find('"')
          akamai = lines[ firstquoteposition + 1 : secondquoteposition ]
          fileitsfoundposition = lines.find(":")
          fileitsfound = lines[:fileitsfoundposition]
          print fileitsfound + " : " + akamai

#!/usr/bin/env perl

use strict;

my $infile = "junkfile";
open( IN , "< $infile") or die "Can't open $infile. $!";
my $b_matches;
my $akam;
my $line;
while( $line = <IN> ) {
  chomp $line;
  $b_matches = grep { /akamai/ } $line;
  if ( $b_matches ) {
    ($akam = $line) =~ s/.*("http:\/\/[^"]*").*$/\1/g;
    printf STDOUT "$akam\n";
  }
}
close(IN);

#!/usr/bin/env perl

my $dir;

$dir = "/etc";

opendir( DIR , "$dir") or die "Can't open $dir. $!";

my $file;
while( $file = readdir(DIR) ) {

  printf STDOUT "$file\n";
}
closedir(DIR);

#!/usr/bin/env perl

my $file;

$file = "/etc/passwd";

&check_filetype( $file );
&check_filetype( "/dev/null" );
&check_filetype( "/dev/console" );
&check_filetype( "/etc" );

sub check_filetype()
{
  $file = shift;
  if ( -d $file ) {
    print "$file is a directory\n";
  } elsif ( -c $file ) {
    print "$file is character special\n";
  } elsif ( -b $file ) {
    print "$file is block special\n";
  } elsif ( -f $file ) {
    print "$file is a regular file\n";
  }
}#end sub check_filetype