rm index.html
rm /root/scripty/akcie/kurs.txt
sleep 5
wget www.akcie.cz
sleep 5
echo C >> /root/scripty/akcie/kurs.txt grep -o '\<ČEZ......td..........................' index.html | grep -o '[0-9]....,..' >> /root/scripty/akcie/kurs.txt sleep 10 echo P >> /root/scripty/akcie/kurs.txt grep -o 'PEGAS...............................................td.' index.html | grep -o '[0-9].....' >> /root/scripty/akcie/kurs.txt echo Z >> /root/scripty/akcie/kurs.txt grep -o 'ZENTIVA...............................,' index.html | grep -o '[0-9]....' >> /root/scripty/akcie/kurs.txt #sendEmail -f xx@tiscali.cz -m -o message-file=/root/scripty/akcie/kurs.txt -t xx@tiscali.cz -u Akcie -s ISMTP.sbone.CZ sendEmail -f xx@tiscali.cz -m -o message-file=/root/scripty/akcie/kurs.txt -t xx@seznam.cz, -u Akcie -s ISMTP.SBONE.CZ #grep -o '\........' index.html | grep -o '[0-9].......' #grep -o 'BANKA............................................' index.html | grep -o '[0-9].......' #echo ECM >> /root/scripty/akcie/kurs.txt #grep -o '\........' index.html | grep -o '[0-9].......' >> /root/scripty/akcie/kurs.txt #echo KB >> /root/scripty/akcie/kurs.txt #grep -o 'KOMERČNÍ BANKA...............................,..' index.html | grep -o '[0-9].......' >> /root/scripty/akcie/kurs.txt
#!/usr/bin/perl
Reboot modemu v PERL u use Net::Telnet; # Create our Telnet object my $telnet = new Net::Telnet ( Timeout => 20, #Prompt => '/bash\$ $/' ); # Have our object connect to our remote server $telnet->open("192.168.0.1"); # Login as myusername with mypassword $telnet->login('root', 'xxxxx'); my @lines = $telnet->cmd('reboot'); print join('', @lines) . "\n"; #$telnet->close;