[Perl] Randomizing An Array

Descrizione
Randomizza un dato array.

Codice
my @arr = ("Napoli", "Milano", "Londra", "New York");
my $deck = \@arr;
my $i = @$deck;
while ($i--) {
my $j = int rand (4);
@$deck[$i,$j] = @$deck[$j,$i];
}
print "@arr\n";
system("pause");

[Perl] FtpAccess

Descrizione
Banale esempio dell'uso del FTP con il Perl.

Codice
use Net::FTP;
$ftp = Net::FTP->new("tuosito.org") or die "Impossibile connettersi: $@\n";
$ftp->login('user', 'pass') or die "Impossibile loggarsi\n";
$ftp->put("file.txt");
system("pause");

[Perl] GetTinyURL

Descrizione
Ottiene il TinyURL di un dato indirizzo web.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( 'http://tinyurl.com/');
$var=$mech->content;
$mech->submit_form(
form_number => 2,
fields => {
url => 'http://tuosito.com',
}
);
$var=$mech->content;
if ($var=~m/<blockquote><b>.*?<\/b><br><small>\[<a href=\"(.*?)\" target=.*?>Open in new window<\/a>\]<\/small>/g){
print "\n Il TinyURL generato e': $1";
}
print "\n\n\n";
system("PAUSE");

[Perl] AdSenseChecker

Descrizione
Controlla le entrate su AdSense.

Leggenda
* Riga troncata.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
print "Adsense\n";
$mech->get( 'https://www.google.com/accounts/Login?continue=http://www.google.it/search%3Fhl%3Dit%26client%3Dfirefox-a%26channel%3Ds%26rls%3Dorg.mozilla:it:official%26hs%3DN7p%26pwst *
%3D1%26q%3 *
Dadsense%2Bchecker%2Bsource%26start%3D10%26sa%3DN&hl=it');
$var=$mech->content;
$mech->submit_form(
form_number => 1,
fields => {
Email => 'tuaemail',
Passwd => 'tuapass',
}
);

$var2=$mech->content;
$mech->get('https://www.google.com/accounts/ServiceLoginBox?service=adsense&ltmpl=login&ifr=true&rm=hide&fpui=3&nui=15&alwf=true&passive=true&continue=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&followup=https%3A%2F%2Fwww.google.com%2Fadsense%2Flogin-box-gaiaauth&hl=it');
$var5=$mech->content;
if ($var5 =~ m/<center><a target="_top" href="(.*)" style="font-family: Arial, Helvetica, sans-serif; font-size: smaller;">/g){
$mech->get("$1");
$var3=$mech->content;
}
while($var3=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "Oggi\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5";
$mech->get("https://www.google.com/adsense/report/overview?timePeriod=alltime");
$vari = $mech->content;
while($vari=~ m/<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>.*?<td nowrap valign="top" style="text-align:right" class="">(.*?)<\/td>/g){
print "\n\nTotale\n";
print "Impressioni su pagina: $1\nClick: $2\nCTR della pagina: $3\nPagina eCPM: $4\nEntrate: $5\n";
}
}
system("pause");

[Perl] RenFile

Descrizione
Rinomina un file (in questo caso rinomina renfile.pl in hello.pl).

Codice
$file="renfile.pl";
my $newname = "hello.pl";
rename($file, $newname) or
warn "Impossibile rinominare $file in $newname: $!\n";
system("pause");

[Php] ShowHTML

Descrizione
Mostra l'HTML di una pagina web (in questo caso http://www.google.com/).

Codice
<?php
$lines = file('http://www.google.com/');
foreach ($lines as $line_num => $line) {
echo "Linea #<b>{$line_num}</b> : " . htmlspecialchars($line) . "<br />\n";
}
?>

[Perl] Controllare l'esistenza di un file

Descrizione
Il titolo dice tutto ;): lo script che oggi vi presento rappresenta un banale esempio di come si possa controllare l'esistenza di un file (in questo caso denominato new.txt) con il Perl.

Codice
if (-e "new.txt"){
print "Il file \"new.txt\" esiste.";
}
else{
print "Il file \"new.txt\" non esiste.\n";
}
system("PAUSE");

[HTML] Reload

Descrizione
Il codice sottostante, da me realizzato in HTML, crea un pulsante grazie al quale è possibile (cliccandovi) ricaricare la pagina web sul quale è presente.

Codice
<form method="post" action="">
<input type="button" value="AGGIORNA" onClick="location.reload()">
</form>

[Perl] All AiV3's stats

Descrizione
Il sottostante script, da me sempre realizzato in Perl, mostra alcune delle statistiche pubbliche di AiV3, AiV3 on Altervista ed AiV3 on Blogger.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
use Win32::Console::ANSI;
system(“title All AiV3’s stats”);
print “\e[1;37;44mAiV3 on Altervista\n\e[0m”;
$mech->get( ‘http://v3rgil.altervista.org/wordpress/’);
$var=$mech->content;
if($var=~m/<ul><li><b>Visite di oggi:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali per questa pagina:<\/b>(.*?)<\/li>\s\s<li><b>Ip:<\/b>(.*?)<\/li>\s\s<li><b>Os:<\/b> <\/li>\s\s<li><b>Browser:<\/b> <\/li>\s\s<li><b>Visitatori online:<\/b>(.*?)<\/li>\s\s<li><b>Utenti online:<\/b>(.*?)<\/li>\s\s<br>\s\s<li><b>Top browser:<\/b> <br>\s\s(.*?)<\/li>\s\s<br>\s\s<li><b>Top O.S.:<\/b> <br>\s\s(.*?)<\/li>/)
{
print qq(Visite di oggi: $1
Visite totali: $2
Visite totali per questa pagina: $3
Ip: $4
Visitatori online: $5
Utenti online: $6
Top browser: $7
Top O.S.: $8);
}
print “\n\n\e[1;37;44mAiV3\n\e[0m”;
$mech->get( ‘http://aiv3.no-ip.org/wordpress/’);
$var=$mech->content;
if($var=~m/<ul><li><b>Visite di oggi:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali:<\/b>(.*?)<\/li>\s\s<li><b>Visite totali per questa pagina:<\/b>(.*?)<\/li>\s\s<li><b>Ip:<\/b>(.*?)<\/li>\s\s<li><b>Os:<\/b> <\/li>\s\s<li><b>Browser:<\/b> <\/li>\s\s<li><b>Visitatori online:<\/b>(.*?)<\/li>\s\s<li><b>Utenti online:<\/b>(.*?)<\/li>\s\s<br>\s\s<li><b>Top browser:<\/b> <br>\s\s(.*?)<\/li>\s\s<br>\s\s<li><b>Top O.S.:<\/b> <br>\s\s(.*?)<\/li>/)
{
print qq(Visite di oggi: $1
Visite totali: $2
Visite totali per questa pagina: $3
Ip: $4
Visitatori online: $5
Utenti online: $6
Top browser: $7
Top O.S.: $8);
}
print “\n\n\e[1;37;44mAiV3 on Blogger\n\e[0m”;
$mech->get( ‘http://s5.shinystat.com/cgi-bin/shinystatv.cgi?L=0&USER=V3rgil&NH=1&NRD=1′);
$var=$mech->content;
if($var=~m/<td class=titolobox width=25%>Visitatori online<\/td>\s.*?<td.*?>(.*?)<\/td>/){
print “Visitatori online: $1″;
}
if($var=~m/<td.*?>Totale pagine viste<\/td>\s+.*?<td.*?>(.*?)<\//){
print “\nTotale pagine visitate: $1″;
}
if($var=~m/<td.*?>Visite totali<\/td>\s+.*?<td.*?>(.*?)<\//){
print “\nVisite totali: $1″;
}
if($var=~m/<\/a>Pagine viste<\/td>\s+.*?<td.*?>(.*?)<\/td>/){
print “\nPagine viste (oggi): $1″;
}
if($var=~m/<\/a>Visite<\/td>\s+.*?<td.*?>(.*?)<\/td>/){
print “\nVisite di oggi: $1″;
}
if($var=~m/Rank.*?><\/a><\/td>\s+.*?<td.*?><b>(.*?)<\/b>/){
print “\nShinystat Rank: $1 su 50″;
}
print “\n\n\n”;
system(“pause”);

[Perl] Data ed ora

Descrizione
Il sottostante script, da me realizzato in Perl, visualizza l’ora e la data.

Codice
use Time::Local;
my $tim = localtime(time);
print $tim;