sensamurai

Hi, 65 (1 of 6) 66 (2 of 6) 67 (3 of 6) 68 (4 of 6) 69 (5 of 6) 70 (6 of 6) This my pdf file pages. I have get the total pages and total blank pages. I can't get the logical page number. 65, 66, 67, …

1. you are refer the perl function perldoc -f [function name] example >perldoc -f length 2. you need install the PDK (perl developer kits) then you will build the .pl to .exe

open(INI, "reg.txt") or die "cant open the file $!"; undef $/; $file=<INI>; close (INI); while ($file =~ m/(.*?) --TID(.*?)@(\d+)\.(\d+)\.(\d+)\.(\d+)\s/gi) { $Ti[$i++]="$2"; $Re[$i++]="$4"; $TR[$i++]="$2 : $4"; } my @uniq1= grep !$serach1{$_}++, @TR; my @uniq2= grep !$serach2{$_}++, @Ti; my @uniq3= grep !$serach3{$_}++, @Re; print "Register\n"; foreach (sort @uniq3){ print $_ ."\n";}print "\n\n"; …

@uniq = grep !$list{$_}++, @array;