|
|
|
|
Perl, WWW::Mechanize und fortune sind tolle Dinge...
|
Code: |
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://forum.mods.de/bb/misc.php?view=login&SID=');
$mech->form_number(2);
$mech->set_visible("USERNAME","PASSWORD");
$mech->submit;
die "Wrong login information!" if($mech->response->content =~ /Falsches Passwort/gi);
$mech->get('http://forum.mods.de/bb/newreply.php?TID=140831');
# man stelle sich mal vor...
# while(1) {
my $fortune = `fortune`;
$mech->form_number(2); $mech->set_visible("", 34, $fortune);
$mech->click('submit');
#}
# :D
|
|
|
|
|
|
|
|
|
Super, direkt auf die erste Seite!
Das ist Marketing
|
|
|
|
|
|
|
I stopped a long time ago to try to find anything in the bug list of dpkg.
We should run for an entry in the Guinness Book of Records.
-- Stephane Bortzmeyer
|
|
|
|
|
|
|
Und dann direkt 3 mal hintereinander :x
Kris
|
|
|
|
|
|
|
BOFH-excuses bitte.
|
|
|
|
|
|
|
Eilsperre für Ghandmann beantragt!
|
|
|
|
|
|
|
BOFH excuse #246:
It must have been the lightning storm we had (yesterday) (last week) (last month)
|
|
|
|
|
|
|
| Zitat von v!pe
| Zitat von Y2Keeper
Windows Update Tag...
"For these updates to take effect, you will have to restart you computer"
| |
Das nervt nur, weil es alle 10 Minuten aufpoppt. -_-
| |
Ein zuenftiger neustart soll dieses problem beheben...
|
|
|
|
|
|
|
10 Leute
2 Posts pro Minute (da 30Sec. Floodcontrol)
= 1200/Stunde
= 28800/Tage
Bei letzten No Moderation Day haben wir damit in BaWü in einem Thread mehr gespamt als das komplette pOT zusammen an dem Tag
UCBarkeeper hat davon noch nen Screen...muss ich mal schauen
//
|
[Dieser Beitrag wurde 1 mal editiert; zum letzten Mal von GH@NDI am 13.06.2007 10:36]
|
|
|
|
|
|
| Zitat von GH@NDI
Perl, WWW::Mechanize und fortune sind tolle Dinge...
|
Code: |
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://forum.mods.de/bb/misc.php?view=login&SID=');
$mech->form_number(2);
$mech->set_visible("USERNAME","PASSWORD");
$mech->submit;
die "Wrong login information!" if($mech->response->content =~ /Falsches Passwort/gi);
$mech->get('http://forum.mods.de/bb/newreply.php?TID=140831');
# man stelle sich mal vor...
# while(1) {
my $fortune = `fortune`;
$mech->form_number(2); $mech->set_visible("", 34, $fortune);
$mech->click('submit');
#}
# :D
|
|
| |
Perl ist so toll für sowas.
Hast du mal eine brauchbare Perl Einführung für Umsteiger?
Tutorials findet man ja massig, aber ehrlich: man muss mur nicht zum 200. mal erklären wie "if" funktioniert.
|
|
|
|
|
|
|
| Zitat von Ghandmann
BOFH excuse #246:
It must have been the lightning storm we had (yesterday) (last week) (last month)
| |
Ab jetzt jeden morgen um 8 eine BOFG-excuse bitte. Danke.
|
|
|
|
|
|
|
| Zitat von Y2Keeper
| Zitat von v!pe
| Zitat von Y2Keeper
Windows Update Tag...
"For these updates to take effect, you will have to restart you computer"
| |
Das nervt nur, weil es alle 10 Minuten aufpoppt. -_-
| |
Ein zuenftiger neustart soll dieses problem beheben...
| |
Aber nich wenn ich gerade meinen Rechner angemacht habe, alle wichtigen 10 Seiten im Firefox offen habe und dann gezwungen werde, meine Surfgewohnheit zu unterbrechen. Nervt.
|
|
|
|
|
|
|
| Zitat von Gh@ndi
| Zitat von Achse-des-boesen
| |
Perl ist so toll für sowas.
Hast du mal eine brauchbare Perl Einführung für Umsteiger?
Tutorials findet man ja massig, aber ehrlich: man muss mur nicht zum 200. mal erklären wie "if" funktioniert.
| |
Ich bin nur hier um darauf hinzuweisen das WWW::Mechanize genauso auch für Ruby existiert und fürs Inhalte abgreifen scrubyt noch viel geiler ist.
|
[Dieser Beitrag wurde 1 mal editiert; zum letzten Mal von SirSiggi am 13.06.2007 10:39]
|
|
|
|
|
|
Cronjob ist installiert
|
|
|
|
|
|
|
Guckguck - jemand da?
|
|
|
|
|
|
|
nein
|
|
|
|
|
|
|
| Zitat von SirSiggi
| Zitat von Gh@ndi
| Zitat von Achse-des-boesen
| |
Perl ist so toll für sowas.
Hast du mal eine brauchbare Perl Einführung für Umsteiger?
Tutorials findet man ja massig, aber ehrlich: man muss mur nicht zum 200. mal erklären wie "if" funktioniert.
| |
Ich bin nur hier um darauf hinzuweisen das WWW::Mechanize genauso auch für Ruby existiert und fürs Inhalte abgreifen scrubyt noch viel geiler ist.
| |
Okay. Ich brauche eine Sprache um kleine Probleme schnell und einfach zu lösen. Ich arbeite viel mit irgendwelchen Texten und brauche dementsprechend eine brauchbare und schnelle Regex-Unterstützung.
Python hab ich, aber das taugt in dieser Hinsicht einfach nicht.
Ruby oder Perl?
|
|
|
|
|
|
|
Ganz klar Perl
|
|
|
|
|
|
|
Beide?
Perl ist wohl manchmal etwas performanter und geradliniger was bekannte Programmierkonzepte angeht, Ruby dafür oft etwas eleganter, durchsichtiger und einfacher, insofern man gute Dokumentation und Beispiele hat (was sich aber in letzter Zeit stark bessert).
|
|
|
|
|
|
|
| Zitat von Achse-des-boesen
| Zitat von GH@NDI
Perl, WWW::Mechanize und fortune sind tolle Dinge...
|
Code: |
#!/usr/bin/perl
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://forum.mods.de/bb/misc.php?view=login&SID=');
$mech->form_number(2);
$mech->set_visible("USERNAME","PASSWORD");
$mech->submit;
die "Wrong login information!" if($mech->response->content =~ /Falsches Passwort/gi);
$mech->get('http://forum.mods.de/bb/newreply.php?TID=140831');
# man stelle sich mal vor...
# while(1) {
my $fortune = `fortune`;
$mech->form_number(2); $mech->set_visible("", 34, $fortune);
$mech->click('submit');
#}
# :D
|
|
| |
Perl ist so toll für sowas.
Hast du mal eine brauchbare Perl Einführung für Umsteiger?
Tutorials findet man ja massig, aber ehrlich: man muss mur nicht zum 200. mal erklären wie "if" funktioniert.
| |
http://search.cpan.org/~nwclark/perl-5.8.8/pod/perl.pod
Da kannste mal bissl durchblättern. Für dich dürfte dann wohl der Bereich Refernce Manual interessant sein.
|
|
|
|
|
|
|
Bei Perl finde ich diese ganzen Sondernzeichen für Variablen, Hashes, wasauchimmer total hässlich. Bei Ruby isses das selbe mit diesem do...end gedöns.
|
|
|
|
|
|
|
Du kannst in Ruby do end auch durch {} ersetzen.
|
|
|
|
|
|
|
BOFH excuse #57:
Groundskeepers stole the root password
|
|
|
|
|
|
|
1 oder 2 mal am Tag reicht.
|
|
|
|
|
|
|
Hui, Chef zahlt mir zum Geburtstag eine Musik-CD /o/
Hätte ich jetzt nicht mit gerechnet
Kris
|
|
|
|
|
|
|
Ich kann mich echt nicht entscheiden
|
|
|
|
|
|
|
| Zitat von Achse-des-boesen
| Zitat von SirSiggi
| Zitat von Gh@ndi
| Zitat von Achse-des-boesen
| |
Perl ist so toll für sowas.
Hast du mal eine brauchbare Perl Einführung für Umsteiger?
Tutorials findet man ja massig, aber ehrlich: man muss mur nicht zum 200. mal erklären wie "if" funktioniert.
| |
Ich bin nur hier um darauf hinzuweisen das WWW::Mechanize genauso auch für Ruby existiert und fürs Inhalte abgreifen scrubyt noch viel geiler ist.
| |
Okay. Ich brauche eine Sprache um kleine Probleme schnell und einfach zu lösen. Ich arbeite viel mit irgendwelchen Texten und brauche dementsprechend eine brauchbare und schnelle Regex-Unterstützung.
Python hab ich, aber das taugt in dieser Hinsicht einfach nicht.
Ruby oder Perl?
| |
.NET kann das auch!
|
|
|
|
|
|
|
| Zitat von [C.I.] Reman
.NET kann das auch!
| |
Python "kann" das auch. Nur nicht sp schön wie Perl/Ruby.
Aber ich denke ich nehme Perl...wirkt auf den ersten Blick sympatischer.
|
|
|
|
|
|
|
| Zitat von Achse-des-boesen
Ich kann mich echt nicht entscheiden
| |
Lass den Zufall entscheiden!
|
Code: |
perl -e '$\="\n";@l=qw/Perl Ruby .Net Python/;$|++;print"Ich nehme...";sleep(3);print$l[rand$|];'
|
|
hihihi*händereib*
|
|
|
|
|
|
|
Dieser tödlichen Einzeiler in Perl sind machen mir Angst
|
|
|
|
|
|
Thema: Gehirnsalat ( wir unter uns ) |