#!c:/xampp/perl/bin/perl.exe use warnings; use CGI; use Time::HiRes qw(gettimeofday); my $query = CGI->new; my $dir = "C:/Users/41786/OneDrive/Documents/recordz1/"; print $query->header; test(); sub test { open (FILE, "<$dir/test2.html") or die "cannot open file $dir/test +2.html"; my $content = ""; my $string .= "<a href=\"/cgi-bin/recordz.cgi?lang=FR&session= +1&page=historique&article=1amp;min_index=1&max_index=40\" ><- +1-></a>  "; while (<FILE>) { s/\$ARTICLE{'index'}/$string/g; $content .= $_; } print "Content-Type: text/html\n\n"; print $content; close (FILE); }
In reply to Re^10: Need help with pagination
by *alexandre*
in thread Need help with pagination
by *alexandre*
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |