Opened by tuxus at 2009-11-19 02:25
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Deine Lösung ist nicht ganz richtig, falls noch mehr Zeilen mit ^#! anfangen, wird der String mehrfach eingefügt.
Du könntest dir noch merken, ob du schon eingefügt hast.
Oder schlicht den Text immer zwischen Zeile 1 und 2 einfügen, wenn sichergestellt ist, dass Zeile 1 die Shebang enthält.
Außerdem finde ich die Verwendung von Dingen wie $^I reichlich kryptisch.
perldoc perlvar meint dazu
Was mich auch nicht schlauer macht.
perl --help verrät dann
Naja. Sowas würde ich lieber "hinschreiben", aber das mögen andere anders sehen.
Last edited: 2009-11-19 10:00:27 +0100 (CET)
Du könntest dir noch merken, ob du schon eingefügt hast.
Oder schlicht den Text immer zwischen Zeile 1 und 2 einfügen, wenn sichergestellt ist, dass Zeile 1 die Shebang enthält.
Außerdem finde ich die Verwendung von Dingen wie $^I reichlich kryptisch.
perldoc perlvar meint dazu
Quote$INPLACE_EDIT
$^I
The current value of the inplace-edit extension. Use "undef" to
disable inplace editing. (Mnemonic: value of -i switch.)
Was mich auch nicht schlauer macht.
perl --help verrät dann
QuoteC:\>perl --help
Usage: C:\Perl\bin\perl.exe [switches] [--] [programfile] [arguments]
[...]
-i[extension] edit <> files in place (makes backup if extension supplied)
Naja. Sowas würde ich lieber "hinschreiben", aber das mögen andere anders sehen.
Last edited: 2009-11-19 10:00:27 +0100 (CET)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite