in reply to 'Paste' data in X
emacs bah - vi forever:
cheers#!/usr/bin/perl -w use strict; use LWP::Simple; my $infile = '/urls.txt'; my $outfile = '/webpage.htm'; # get first line from ulrs.txt open F, $infile or die "Can't read $infile $!\n"; chomp (my $line = <F>); close F; # get webbpage my $page = get($line); # write contents to a file open F, ">$outfile" or die "Can't write $outfile $!\n"; print F $page; close F; `vi $outfile`;
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
|
|---|