Jag undrar om någon kan, vet hur man tyder detta skriptet? För mig är detta en enda stor röra så jag är jättetacksam för hjälp, eller tips på hur jag kan lösa svaret på nedan
my %x = ("\141" => "\063", "\143" => "\064",
"\144" => "\061", "\172" => "\065", "\160" => "\066",
"\145" => "\071", "\146" => "\061", "\147" => "\066",
"\150" => "\065", "\152" => "\060", "\153" => "\062",
"\164" => "\065", "\154" => "\067", "\155" => "\060",
"\142" => "\070", "\157" => "\066", "\162" => "\067",
"\161" => "\065", "\171" => "\071", "\156" => "\061",
"\151" => "\071", "\163" => "\061", "\165" => "\065",
"\167" => "\066", "\170" => "\071", "\166" => "\061");
print "\164\150\145\040\160\145\162\154\040\151\163\072\040";
my @y = split(//, lc(<STDIN>));
pop @y;
while(scalar(@y) < $x{"\164"}) { push(@y, "\152") }
for(my $i = 0; $i < scalar(@y); $i++) { if(@y[$i] < "\141" || @y[$i] > "\172") { @y[$i] = "\152" } }
print "\012\116\040\065\066\040\061\061\056\060".($x{@y[0]}==$x{"\152"}?$x{@y[0]}:$x{@y[0]}-1).
"$x{@y[1]}\012\105\040\060\061\064\040\065\062\056$x{@y[2]}$x{@y[3]}$x{@y[4]}\012";
Skriptspråket Perl
- M-Nilsson
- Addict
- Posts: 1673
- Joined: 2007-01-24 21:33:00
- Bilmodell: 944 S
- Årsmodell: 1987
- Location: Karlshamn
- Contact:
Skriptspråket Perl
944 S -87. Diamantblåsilver (http://www.garaget.org/?car=182594)
924 S -86. Svart. (Såld av mig) Därefter älgkrockad. Lagad- omlackerad vinröd.
924 S -86. Svart. (Såld av mig) Därefter älgkrockad. Lagad- omlackerad vinröd.
Who is online
Users browsing this forum: No registered users