#!/eng/local/bin/perl
%hash;
$hash{'200'}="OK ";
$hash{'201'}="Created ";
$hash{'202'}="Accepted ";
$hash{'203'}="Non-Authoritative Information ";
$hash{'204'}="No Content ";
$hash{'205'}="Reset Content ";
$hash{'206'}="Partial Content ";
$hash{'300'}="Multiple Choices ";
$hash{'301'}="Moved Permanently ";
$hash{'302'}="Moved Temporarily ";
$hash{'303'}="See Other ";
$hash{'304'}="Not Modified ";
$hash{'305'}="Use Proxy ";
$hash{'400'}="Bad Request ";
$hash{'401'}="Unauthorized ";
$hash{'402'}="Payment Required ";
$hash{'403'}="Forbidden ";
$hash{'404'}="Not Found ";
$hash{'405'}="Method Not Allowed ";
$hash{'406'}="Not Acceptable  ";
$hash{'407'}="Proxy Authentication Required ";
$hash{'408'}="Request Timeout ";
$hash{'409'}="Conflict ";
$hash{'410'}="Gone ";
$hash{'411'}="Length Required ";
$hash{'412'}="Precondition Failed ";
$hash{'413'}="Request Entity Too Large ";
$hash{'414'}="Request URI Too Large ";
$hash{'415'}="Unsupported Media Type ";
$hash{'500'}="Internal Server Error ";
$hash{'501'}="Not Implemented ";
$hash{'502'}="Bad Gateway ";
$hash{'503'}="Service Unavailable ";
$hash{'504'}="Gateway Timeout ";
$hash{'505'}="HTTP Version Not Supported ";
$hash{'600'}="Squid header parsing error ";

my %hash2;
open (FILE, "$ARGV[0]");
foreach (<FILE>){
        chop;
        @array= split(/\"/,$_);

        #@array= split(/\"[^\"]*\"/,$_);

#       foreach $duh (@array){
#               print "-> $duh\n";
#       }
#

        foreach $er (@array){
                $er =~ s/GET //g;
                $er =~ s/ HTTP\/1.0//g;
                $er =~ s/ HTTP\/1.1//g;
                chomp $er;
        }


        (undef, undef, undef, undef, $caller) = split (/ /, $array[0])
+;
        (undef, $status, undef) = split (/ /, $array[2]);

        @what = split (/\//, $array[3]);






        if ($status == "404"){
                if ($what[2] eq "www.eng.utoledo.edu"){
                        $from= $array[3];
                        $from=~ s/http:\/\///;
                        $from=~ s/(131.183.8.5|127.0.0.1|green.eng.uto
+ledo.edu|www.eng.utoledo.edu)//;
                        $hash2{$from}{$array[1]}++;
                        #print "what $caller is getting -> $array[1]";
                        #print "status -> $hash{$status}";
                        #print "from -> $array[3]";
                        #print "notify -> $who";
                        #print "\n";
                }
                else{
                }

}



}

foreach $key (sort {$a cmp $b} (keys %hash2)){
        foreach $value (keys %{$hash2{$key}}){
                print "$key ->$value \n";
        }
}




#foreach $key ( keys %hash2){
#       my @erp=split (/\n/,"$hash2{$key}");
#       @rt=sort {$a cmp $b} (@erp);
#       print "$key ->\n";
#       my %hash3;
#       foreach $qwe (@rt){
#               $hash3{"$qwe"}="$qwe";
#       }
#       foreach $asd( keys %hash3){
#               print "$hash3{$asd}\n";
#       }
#       print "\n";
#}


close(FILE);
[download]

#!/usr/bin/perl

%hash;

while (<DATA>){
        chomp;
        ($key, $value)= split(/[\s+|\t+]/,$_);
        $hash{$key}=$value;
}

foreach $key2 (keys %hash){
        print "$key2 -> $hash{$key2}\n";
}

__DATA__
a       1
a       2
a       1
a       3
[download]

#!/usr/local/bin/perl

require "mysql_handeler.pl";
@res=mysql_handeler('select * from user_staff;');

foreach $line (@res){
        chop;
        @ary = split(/  /, $line);
        push (@array, @ary);

        foreach (@ary){
                print "|$_      |";
        }


        print "\n";
}
--------#!/usr/local/bin/perl
$mysql_home="/var/tmp/hfranks/mysql/mysql-max-3.23.56-sun-solaris2.8-s
+parc/bin/$
$user="root";
$password="crap";
$database="grade";

sub mysql_handeler{
        foreach (@_){
        @results=`$mysql_home -u $user --password=$password -e '@_' $d
+atabase`;
        }
return @results;
}
return true;
[download]

+-----------+-------+--------+------+----------------+
| id        | grade | weight | snum | time           |
+-----------+-------+--------+------+----------------+
| 213456758 | 2     |     10 |    1 | 20030423150119 |
| 213456758 | 5     |     10 |    2 | 20030423150119 |
| 213456758 | 4     |      5 |    3 | 20030423150119 |
| 555555555 | 2     |      5 |    4 | 20030423150214 |
+-----------+-------+--------+------+----------------+
[download]

id      grade   weight  snum    time
213456758       2       10      1       20030423150119
213456758       5       10      2       20030423150119
213456758       4       5       3       20030423150119
555555555       2       5       4       20030423150214
[download]