in reply to Re^3: print-screen without non-core modules ?
in thread print-screen without non-core modules ?
The extreme difference in length alone is unmistakeable,use strict; use diagnostics; use warnings; use WWW::Mechanize 'new'; my $mech = WWW::Mechanize->new(); $mech->get( 'http://tv.walla.co.il/?w=/2//353//2011-10-22/1' ); $mech = $mech->content( format => 'text' ); writeFile('del at will.txt',$mech); system('del at will.txt'); exit; sub writeFile { my $filepath = shift; my $nwntnt = join("",@_); $nwntnt = "\x{feff}".$nwntnt; #utf8 char starter no warnings; do { open(TXT, ">:utf8",$filepath); #open(txt, ">",$filepath); print TXT $nwntnt; close TXT; if($! and ($! ne 'No such file or directory') and ($! ne 'Bad file descriptor') ) { print 'Error writing to file: '.$!."\a\nPath: $filepath\nhit the + enter to continue"; <>; } else{$! = '';} } while($!); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: print-screen without non-core modules ?
by marto (Cardinal) on May 28, 2012 at 08:32 UTC | |
by palkia (Monk) on May 28, 2012 at 17:36 UTC | |
by Anonymous Monk on May 28, 2012 at 21:28 UTC | |
by palkia (Monk) on May 28, 2012 at 22:02 UTC | |
by Anonymous Monk on May 29, 2012 at 02:04 UTC | |
| |
by Anonymous Monk on May 29, 2012 at 02:09 UTC | |
|
Re^5: print-screen without non-core modules ?
by Anonymous Monk on May 28, 2012 at 05:38 UTC |