Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]11205[/thread]

scriptvorstellung: pictureleecher

Leser: 1


<< >> 2 Einträge, 1 Seite
h_oswaldt
 2008-01-28 14:35
#105281 #105281
User since
2008-01-28
1 Artikel
BenutzerIn
[default_avatar]
hallo
möchte Euch mal mein neuestes Programm vorstellen. bin übrigens neu hier :-)

ich hatte eine größere Linkliste mit links zu imagevenue.com (ein freefilehoster). Natürlich wollte ich die nicht alle einzeln im Browser anklicken und speichern, sondern überlegte mir wie man das automatisieren kann. wenn ich nun den softlink mit
Code: (dl )
wget
hole,
zB. http://img123.imagevenue.com/img.php?image=1234......

bekomme ich zwar nicht das Bild, wohl aber einen HTMLcode, der wiederum einen Teil des hardlinks liefert (der andere Teil ist im Softlink). Der fertige Hardlink ist der realexistierende Link zum Bild, welches sich nun mit wget holen lässt.

zB. http://img123.imagevenue.com/fasdfddASDsdf-2234as6...

aha! dieses Problem schreit also geradezu nach einer Perl-Lösung :) so habe ich dieses Script entwickelt. Er lässt mich das hier nicht posten, zu lang, also hier entlang:

http://ubuntuusers.de/paste/31785/

Beschreibung verständlich? wie findet ihr das script? ist der Programmierstil gut? kann man was verbessern/vereinfachen? ich habe übrigens lange nix mehr mit Perl gemacht, und bei der Gelegenheit meine alte Liebe zu Perl wiederentdeckt. alte Liebe rostet nicht :-)

Viele Grüße
h.oswaldt[b]
Taulmarill
 2008-01-28 15:32
#105282 #105282
User since
2004-02-19
1750 Artikel
BenutzerIn

user image
Zum Programmierstil lies dir mal perlstyle durch.

Beim überfliegen des Codes ist mir folgendes aufgefallen:
Code: (dl )
foreach(@Zeilen)

das würde ich eher so schreiben
Code: (dl )
for my $zeile ( @zeilen ) {


Dokumentation würde ich in POD schreiben. Siehe perlpod
$_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0
F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
<< >> 2 Einträge, 1 Seite



View all threads created 2008-01-28 14:35.