Anfängerfrage: if-Bedingung (gelöst) (Allgemeines zu Perl)

[thread]15407[/thread]

Anfängerfrage: if-Bedingung [gelöst]

Leser: 25

Articles: hide open all | hide show old branches

+5 replies
Gast tester12

2010-08-24 15:08
Hallo Leute,

ich versuche gerade ein Perl-Skript in C++ zu übersetzen. Da ich neu in Perl bin, versuche ich gerade die Syntax zu verstehen und mir sind einige Sachen unklar:

1)
Code (perl): (dl )

1 2 3 4

my( $scplog, $controllog, $preplog, $distlog ) = ('DICOM_SCP*.log', 'PREPARATION_CONTROL*.log', 'PREPARATION_MG*.log', 'Distributor*.log');
Was bedeutet diese Zeile? Heißt es, dass vier lokale bzw. globale Variable erzeugt werden und mit den nachfolgenden Werten initialisiert werden?

2)
Code (perl): (dl )

1 2 3

my( %Preparation, %PreparationItem, %Distribution, %DistributionItem, %ClientInfo, %DistributionRequest, %DistributionSubRequest, %Clients, %PreparationLookUp );
Ist dies genau das Gleiche wie unter 1) nur dass diesmal Hashes deklariert, aber nicht initialisiert werden?

und 3)
Code (perl): (dl )

1 2 3 4 5 6 7 8

sub evalParameter { my ($sT, $eT) = @_; if( $sT ) { $startTime = completeTimeStamp($sT, 0); } if( $eT ) { $endTime = completeTimeStamp($eT, 1); }
Hierbei geht es mir nur um die if-Bedingungen. Ich habe mir Beispiele durchgelesen, in denen eine if-Bedingung z.B. so aussieht: if($x == 0) ...
Im obigen Beispiel steht allerdings nur $sT. Meine Frage ist nun: Wann ist diese Bedingung wahr? Ist sie immer wahr, wenn die Variable defined ist und nicht wahr, wenn sie undefined ist?

Ich hoffe meine Fragen sind einigermaßen klar und verständlich und würde mich über konstruktive Hilfe sehr freuen.

Gruß tester12

mod-edit pq: perl-tags hinzugefügt
Last edited: 2010-08-24 15:12:58 +0200 (CEST)
- Linuxer
  
  2010-08-24 15:14
  
  User since
  2006-01-27
  3882 Artikel
  HausmeisterIn
  
  Zu 1.
  Hier werden 4 lexikalische Variablen deklariert und mit Werten belegt. Ob "lokal" oder "global" entscheidet sich über den Kontext, bzw. den Block, in dem die Deklaration steht.
  
  zu 2.
  korrekt.
  
  zu 3.
  $sT und $eT werden mit den ersten zwei Argumenten befüllt, die an die Subroutine übergeben wurden.
  Die If-Abfrage prüft, ob der Inhalt wahr ist. Wahr ist in diesem Falle alles, was nicht undef, 0 (Zahl 0) oder '' (Leerstring) ist.
  
  Bei weiterem Info-Bedarf nochmal nachhaken.
  
  NACHTRAG
  Meine Antwort ist auf Perl5 bezogen... Habe erst im Nachhinein bemerkt, dass diese Frage im Perl6 Forum stand...
  Perl6-Kenner mögen meine Aussagen kontrollieren und ggfs. korrigieren.
  Oder gehört die Frage eher nach Perl5?
  Last edited: 2010-08-25 10:45:19 +0200 (CEST)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- pq
  
  2010-08-24 15:17
  User since
  2003-08-04
  12208 Artikel
  Admin1
  zu 1) und 2)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my $x; # deklariert die variable $x my ($x); # dasselbe my $x = 1; # deklariert die variable $x und initialisiert sie my ($x) = 1; # dasselbe my ($x, $y); # deklariert die variablen $x und $y. klammern notwendig my ($x, $y) = ("x", "y"); # deklariert und initialisiert die variablen $x und $y my $x = "x"; my $y = "y"; # dasselbe nur in zwei statements
  
  zu 3)
  eine variable ist im booleschen sinne "true", wenn sie definiert ist und nicht den leeren string oder 0 enthält.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast tester12
    
    2010-08-24 15:22
    
    Vielen Dank für die schnellen und kompetenten Antworten!
    
    Jetzt sind diese Sachen für mich klar.
    
    Wenn weitere Fragen auftauchen sollten werde ich mich wieder melden.
    
    Gruß tester12
- pq
  
  2010-08-24 15:24
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  hoppla, danke linuxer für den hinweis.
  
  @tester12: ich nehme einfach mal ganz stark an, dass du perl 5 meintest und nicht perl 6. warum hast du es nicht in "allgemeines zu perl" gepostet?
  
  Move from Raku / Perl 6 to Allgemeines zu Perl
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-08-24 15:08.