010
27.11.2005, 17:42 Uhr
J-jayz-Z
Perl Crack ala Carte
(Operator)
|
Ich hab mir das grad mal auf selfhtml angesehen.
Also ganz ehrlich: das taugt nicht. Ein kleines beispiel möchte ich geben:
http://de.selfhtml.org/perl/funktionen/zeichenketten.htm#substr
Der Code hier (ist jetzt nur irgendwie ausgewählt, sind alle schrot  ) ist im total perl dummy Style geschrieben.
| Code: |
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
my $Satz = "nutze den Tag!";
my $Satzlaenge = length($Satz);
my @Zeichen;
for(my $i=0; $i<$Satzlaenge; $i++) {
$Zeichen[$i] = substr($Satz,$i,1);
}
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";
for(my $i=0; $i<$Satzlaenge; $i++) {
print "Zeichen $i lautet: $Zeichen[$i]<br>\n";
}
print "</body></html>\n";
|
Nur um das mal zu verdeutlichen, habe ich den code mal auch noch in guten perl Stil geschrieben (wo der header auch mal was taugt...)
| Code: |
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw/stadard/;
my $satz = "nutze den Tag!";
my @zeichen;
for(0..length $satz) {
$zeichen[$_] = substr $satz, $_, 1;
}
my $cgi = CGI->new();
print $cgi->header,
$cgi->start_html("Test-Ausgabe");
for(0..$#zeichen) {
print "Zeichen $_ lautet: $zeichen[$_]<br>\n";
}
print $cgi->end_html();
|
Nur mal um zu verdeutlichen, das der Post von Pler (zwecks des aussehens) nicht ganz der Wahrheit entspricht. Könner achten auf den Stil !
--
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'
Dieser Post wurde am 27.11.2005 um 18:47 Uhr von J-jayz-Z editiert. |
