Jeden Buchstaben einzeln behandeln (Allgemeines zu Perl)

J-jayz-Z

2005-05-30 16:44

User since
2005-04-13
625 Artikel
BenutzerIn

Hi, ich hab hier ein Problem.
Ich hab unbekannt viele Einträge in @ARGV und will jeden Buchstabem aus jeden Arrayelement einzeln behandeln.
Hier mal eine Idee, geht das auch eleganter?

Code: (dl )

...
foreach(@ARGV)
{
@temp = split(/./, $_);
foreach(@temp)
{
&do_something($_);
}
@temp = ();
}

thx schonmal

EDIT: Müll geschrieben ...\n\n

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de

esskar

2005-05-30 17:17

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Code: (dl )

foreach my $argv (@ARGV) {
   map {
      &do_something($_)
   } (split //, $argv)
}

murphy

2005-05-30 17:19

User since
2004-07-19
1776 Artikel
HausmeisterIn

Code (perl): (dl )

split /./, ...

behandelt jeden Buchstaben als Trennzeichen, weshalb es stets ein leeres Array zurückgeben sollte. Um in einzelne Buchstaben zu splitten, solltest du

Code (perl): (dl )

split //, ...

verwenden.

Zum Beispiel funktioniert

Code (perl): (dl )

1
2

print "$_
" for (split(//, join(' ', @ARGV)));

um die Kommandozeilenparameter wieder durch Leerzeichen getrennt zu verketten und dann die gesamte Kommandozeile in einzelne Buchstaben zu zerlegen.

(edit: Ich hatte esskars Beitrag noch nicht bemerkt, sorry)\n\n

When C++ is your hammer, every problem looks like your thumb.

esskar

2005-05-30 17:25

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

du hast es doch schön erklärt...
ich hab nur code runter gejubelt...
also, keinen Grund zur Entschuldigung (den gibt es eh nur sehr, sehr selten)

J-jayz-Z

2005-05-30 17:27

User since
2005-04-13
625 Artikel
BenutzerIn

Hey, thx für eure Hilfe!

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de