Wird &sub in s/x/&sub/e immer ausgeführt? (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-01-28 16:36:29
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
1 Benutzer online
4 Gäste

[thread]13691[/thread]

submit to reddit

Wird &sub in s/x/&sub/e immer ausgeführt?

Leser: 15

Articles: hide open all | hide show old branches

+3 replies
Gast sman

2009-07-04 09:52
Hallo,

ich habe eine sehr lange und Speicher und Laufzeit fressende Subroutine &sub.
Beim Durchlesen eine großen Datei mit
Code (perl): (dl )

1 2 3 4 5

while (<DATEI>) { s/x/&sub/e; print; }
soll x durch das Ergebnis der &sub ersetzt werden. x kommt hierbei genau einmal in der großen Datei vor.

Ich frage mich nun, ob dieses Vorgehen klug ist, oder ob hier Perl intern jedesmal &sub ausführt obwohl die Ersetzung garkeinen Treffer hat.
- +2 replies
- Gast MatthiasW
  
  2009-07-04 10:42
  Das lässt sich ja leicht testen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use strict; use warnings; my @test = ('a' .. 'z'); for my $chr ( @test ) { $chr =~ s/x/&foo/e; print $chr; } # for sub foo { print "\nfoo called\n"; return ''; } # foo
  
  An der Ausgabe kannst du erkennen, dass foo() nur einmal aufgerufen wird, und zwar dann, wenn das 'x' ersetzt wird.
  
  MfG
  - Gast sman
    
    2009-07-04 12:39
    
    Danke für das Testen!

View all threads created 2009-07-04 09:52.