[Python] GUI-Toolbar

Descrizione
Banale esempio di GUI con toolbar in Python.

Codice
from Tkinter import *
mw = Tk()
def hello():
    print "Hello!";
tb = Frame(mw)
b = Button(tb, text="Hello", width=6, command=hello)
b.pack(side=LEFT, padx=2, pady=2)
b = Button(tb, text="Esci", width=6, command=mw.quit)
b.pack(side=LEFT, padx=2, pady=2)
tb.pack(side=TOP, fill=X)
mainloop()

[Python] GUI-Menù

Descrizione
Banale esempio di GUI con menù in Python.

Codice
from Tkinter import *
def hello():
  print "HelloWorld\n"

def about():
 print "Codec by V3rgil\n";

mw = Tk()
mn = Menu(mw)
mw.config(menu=mn)
filemn = Menu(mn)
mn.add_cascade(label="File", menu=filemn)
filemn.add_command(label="Hello...", command=hello)
filemn.add_separator()
filemn.add_command(label="Esci", command=mw.quit)
helpmn = Menu(mn)
mn.add_cascade(label="Help", menu=helpmn)
helpmn.add_command(label="About...", command=about)
mainloop()

[Python] GUI-HelloWorld

Descrzione
Semplice esempio di GUI.

Codice
from Tkinter import *
mw = Tk()
label = Label(mw, text="Hello, world!")
label.pack()
mw.mainloop()

[Perl] BidVertiserChecker

Descrizione
Controlla le entrate su BidVertiser.

Codice
use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );
use Win32::Console::ANSI;
print "\e[1;37;44mBidVertiser\n\e[0m";
$mech->get('http://www.bidvertiser.com/');
$mech->submit_form(
form_name => 'LoginFormAdv',
fields => {
bdv_type => 'pbl',
Member_ID => 'username',
Password => 'password',
},
);
$a = $mech->content;
if($a =~ /<td width=\"160\" class=\"Top-Bar-Bttn-TD\" align=\"center\" onclick=\"document.location.href=\'(.*?)\';\" style=\"cursor:pointer;\"><span class=\"Top-Bar-Bttn\" >BidVertiser Summary<\/span><\/td>/){
$mech->get($1);
}
$a = $mech->content;
if($a=~/<b>Total<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b><\/td>\s*?<td><b>(.*?)<\/b>/){
print "Impressions: $1\nClicks: $2\nRevenue: $3\nCPC: $4\n\n";
}
system("PAUSE");

[Perl] GUI-HelloWorld

Descrizione
Semplice esempio di GUI.

Codice
use Tk;
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Esci",
-command => sub { exit })
-> pack();
MainLoop;

[Perl] WhoIs

Descrizione
Semplice esempio di WhoIs in Perl.

Codice
use Net::Whois::Raw;
$s = whois('google.com');
print $s;
system("PAUSE");

[Perl] ShowTextFiles

Descrizione
Mostra i nomi dei file di testo presenti in una directory.

Codice
$d = ".";
print "File di testo trovati:\n";
opendir(D, $d) or die "Impossibile aprire la directory: $!";
while( defined ($f=readdir(D)) ) {
print "$d/$f\n" if -T "$d/$f";
}
closedir(D);
system("PAUSE");

[Perl] PalindromStrings

Descrizione
Controlla se una stringa è palindroma.

Codice
$str = 'asdDsa';
$rev = join("", reverse split("", $str));
if($str =~ /$rev/i){
print "La stringa '$str' e' palindroma\n";
}
else
{
print "La stringa '$str' non e' palindroma\n";
}
system("pause");

[Perl] Password

Descrizione
Non visualizza ciò che viene digitato durante l'immissione del valore della variabile $pass.

Codice
use Term::ReadKey;
ReadMode('noecho');
print "Inserire una password: ";
$pass = ReadLine(0);
chomp($pass);
print "\nLa password digitata e': $pass\n";
system("pause");

[Perl] RomanArabic

Descrizione
Mostra il corrispondente numero romano di un numero arabo e viceversa.

Codice
use Roman;
$roman = roman(5);
print "Il corrispondente numero romano del numero arabo 5 e' $roman\n";
$arabic = arabic($roman);
print "Viceversa, il corrispondente numero arabo del numero romano $roman e' $arabic\n";
system("pause");