Domů | Blogy | Blog uživatele kamilhlavka

Stažení web stránky parsováni textu za pomocí grep a odesílání na mobil - zastaralé a nefunkční

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;