my (@words1,@words2,@words3);
open file, "/dir/to/file.db";
while (my $line = <file>){
next if $line =~ /^./;
#this isnt the best way todo this but should work
my...

Is the very first line (#!/usr/bin/perl) pointing to the correct folder where perl is stored on the server?

in the first couple of lines of the script there should be a line like

print...

you need a web server like apache running to interact with.

you can use session cookies, or you can log there ip. I would just use session cookies, and if the person doesnt accept cookies then dont allow them to view page, or something like that.

#!/usr/bin/perl -w
use Tk;
use strict;

my $mw = MainWindow->new;
fill_window($mw, 'Main');
my $top1 = $mw->Toplevel;
fill_window($top1, 'First top-level');
my...

well from what i can see is that $_ is a default set variable, but in your case its not being set by perl anywhere b/c you set all your variables up.

you'll might need to rethink your code layout...

you can try this: open the file, slurp it all in at once and use eval to execute the code.

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

my $counters = {start => 0, end =>5};

REQUESTS:
my $req = $ua->get( 'http://some.web.site');

if ($req->is_success) {

add this


if ($res->is_success) {
print $res->content;
}
else {
print $res->status_line, "\n";
}

look in to this module.

TryCatch.PM (http://search.cpan.org/~ash/TryCatch-1.001001/lib/TryCatch.pm)

to save data pasted back from sub like that you must save them.


my $saved = $Enable->GetField("LINE",\$Line});


that will captured anything that is returned back from the sub.

$string =~ /FT\s*CDS\s*\w+\(join\(.+\)\)/;


try this, it isnt tested.

try added this above your commented out foreach loop.



then replace


with

try print $res->content; rather then print $res->as_string. The only thing is that, if the post successful then it will retrieve the contents of that whole page as source code (HTML format). you can...

you can use fork