Learning Perl Aufgabe - Verständnisfrage (Allgemeines zu Perl)

[thread]14264[/thread]

Learning Perl Aufgabe - Verständnisfrage

Leser: 22

Articles: hide open all | hide show old branches

+7 replies
tuxus

2009-11-19 02:25
User since
2008-06-16
25 Artikel
BenutzerIn
Huhu,
ich habe folgende Aufgabe:

Quote
Write a programm to add a copyright line to all of your exercise answers so far, by placing a line like "## Copyright (C) 20XX by Yours Truly". In the file immerdiately after the "shebang" line. You should edit the files "in place," keeping a backup. Presume that the programm will be invoked with the filenames to edit already on the command line.

Nun war die Aufgabe an sich eigentlich kein Problem und die Lösung sieht so aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use warnings; use strict; $^I = "~"; while (<>) { if(/^#!/) { $_ .= "## Copyright (C) 2009 by tuxus\n"; } print; }
Ist ja alles schön und gut aber ich verstehe nicht wie/warum perl automatisch ein newline nach der Shebang Zeile einfügt. So weit ich weis, nimmt der Diamond Operator jede Zeile einzeln und verarbeitet sie. Das heist ja, in $_ ist im Moment wo der Reguläre Ausdruck passt, die Shebang Zeile gespeichert. Wen ich jetzt diesem String das Copyright mit .= anhänge, dürfte er doch davor kein newline einfügen oder?
Ich dachte eigentlich ich müsste das dann so schreiben:
Code: (dl )

$_ .= "\n## Copyright (C) 2009 by tuxus\n";
gruss Tuxus
- Gast wer
  
  2009-11-19 03:12
  
  Eine Zeile endet mit einem "\n". Das wird über die Variable "$/" definiert. Anders als bei "split" wird der Suchstring nicht entfernt.
- nepos
  
  2009-11-19 08:14
  
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  
  Beim Diamant-Operator hast du immer Newlines mit drin im Normalfall.
  Wenn du die weghaben willst, dann musst du danach z.B. noch chomp benutzen.
- +4 replies
- Crian
  
  2009-11-19 09:55
  
  User since
  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
  
  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
  
  Quote
  C:\>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
  - +2 replies
  - tuxus
    
    2009-11-19 13:40
    
    User since
    2008-06-16
    25 Artikel
    BenutzerIn
    
    Vielen Dank für eure Hilfe. Ist mir jetzt klar.
    
    2009-11-19T08:55:36 Crian
    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.
    
    Das war gleich die nächste Aufgabe ;)
    - Gast wer
      
      2009-11-19 14:00
      
      Mein Lösung sähe wohl so aus:
      
      Code: (dl )
      
      perl -i -e '$/=undef; <>; s/^(#!.+?\n)/$1## Copyright (C) 2009 by tuxus\n/; print' test.pl
      
      ;)
  - LanX-
    
    2009-11-19 14:02
    
    User since
    2008-07-15
    1000 Artikel
    BenutzerIn
    
    2009-11-19T08:55:36 Crian
    ...
    Was mich auch nicht schlauer macht.
    
    perl --help verrät dann
    ...
    
    Die Doku existiert und ist sogar sehr gut, wie üblich ist es eher das Problem sie auch zu finden... siehe
    
    perldoc perlrun
    
    und suche nach ' -i'.
    
    Tatsächlich war $^I in meinem allerersten Perlscript (google sei dank) ohne dass ich wirklich verstand was da eigentlich abgeht...
    
    ... bis heute! 8)
    me and my writeups

View all threads created 2009-11-19 02:25.