#!/usr/bin/perl #===========================================================================# # convenzioni-normativa (con modalità post) # V0.3 con filezilla e cert8 # V0.4 con filezilla filemanager e ie # V0.5 13102008 con ws_ftp # V0.6 19102008 tolto cert8 # V0.7 16022009 messo giorno e ora nel cartel, gestione disco D,E,F # v1 04032009 application data, versione e decimale minuti # v2 11032009 tolto tmp e messo txt # v3 13032009 salva in all user esecuzione automatica # v4 20032009 guida730 con sleep finale # v5 18082009 applicazione con tempfilef per firefox e cert8 #===========================================================================# use LWP::UserAgent; use Getopt::Long; use HTTP::Cookies; use IO::Handle; $nomepgm = "applicazione"; open(FLOG,">raccolta.html"); $appoggio = "";print FLOG "\n $appoggio"; $appoggio = "";print FLOG "\n $appoggio"; $appoggio = "Titolo";print FLOG "\n $appoggio"; $appoggio = "