Perl LWP post to a web form

2007-08-10 Thread Typos
t;new; my $URL = "http://www.dhivehinet.net.mv/index.php?action=edir&page=0";; my $response = $browser->post( $URL, [ 'searchtype' => '3'; ] ); print $response->decoded_content; -- Typos FourThirty Inc. Domain Administrator http://blog.fourthirty.org

How to insert an array in to the middle of another array after a certain pattern

2007-04-13 Thread Typos
arrel{$last_octet} = $_ ; } } foreach (sort { $a <=> $b } keys %barrel) { push @sorted_list, $barrel{$_} ; } foreach (@content) { s/.*-A MAC.*\n$// ; } print @content ; Can someone please help me...Thank you in advance...! -- Typos FourThirty Inc. Domain Administrator