014
01.12.2005, 22:30 Uhr
J-jayz-Z
Perl Crack ala Carte
(Operator)
|
| Zitat von Bruder Leif: |
Für mich riecht die Aufgabe eher nach AWK. Wie schon vorgeschlagen eine Datei mit Singular links, dann Tab zur Trennung, dann Plural. Mit AWK oder, wenns unbedingt sein muss, Perl *bäh* ein Einzeiler, mit C/C++ wirds "etwas" mehr...
|
Wie darf ich den das *bäh* verstehen? 
Perl is dafür doch Ideal. Wenige zeilen code...
| Code: |
ingo@j-jayz-z# perl plural.pl Perl
Perler
|
und der Code ist einfach nur
| Code: |
#!/usr/bin/perl
use strict;
use warnings;
while(<DATA>) {
if(m/$ARGV[0]\s+(.*)/i) {
print $1;
}
}
__DATA__
Perl Perler
C Cler
|
--
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 02.12.2005 um 00:49 Uhr von J-jayz-Z editiert. |
