Új hozzászólás Aktív témák

• #8283 beleszólok senior tag

  Új Válasz 2014-10-29 21:42:19 #8283

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  beleszólok

  senior tag

  No, erlang mellé egy kis perl

  #!/usr/bin/env perl
  use strict;
  
  my $infile;
  print $ARGV[0];
  
  
  if($#ARGV==-1){
  open($infile,"<-") or die "Hiba1 $!";
  } else {
  print $#ARGV,"\n";
  print $ARGV[0],"\n";
  open($infile,$ARGV[0]) or die "Hiba2 $!";
  }
  
  
  while($infile){
  chomp;
  print "xxx:",$_,"\n";
  }
  
  close($infile);

  Ez így végtelen ciklusban írja az xxx:-eket üresen, nem foglalkozik az stdin tartalmával.
  Doksi szerint ha az open-nek nem adok második paramétert vagy ott "-" vagy "<-" stringet adok meg, akkor a stdin-t használja. Nekem úgy tűnik, hogy mégsem. De miért?
  Ha nem szórakozok open-nel, csak while(<>) formában használom, akkor nincs vele gond.
  (szeretném, ha a program a stdin-t olvasná ha nincs paraméter és a paraméterben megadott fájlt, ha van)

Új hozzászólás Aktív témák