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

• fordfairlane veterán

  #9936

  #9933 Zola007

  2016-06-17 15:56:01

  Új Válasz

  Ú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

  

  fordfairlane

  veterán

  #9933 Zola007

  #9933 Zola007

  PERL 5.24
  ebben a kis programban nem tudom mi a hiba:
  a feladata, hogy beolvassa a fájl tartalmát, majd kiírja fordítva
  #!/usr/bin/perl -w
# Write a program to read a file, and then print its lines in reverse order, the last line first
$readfile = 'alphabet.txt';
open (ALPHABET, $readfile);
@alphabet = <ALPHABET>;
print "This is the English alphabet:\n\n";
print "@alphabet\n\n";

@reversealphabet = reverse @alphabet;
print "The reverse of the alphabet:\n\n";
print @reversealphabet;
close ALPHABET;
exit;

  Ezt kapom futás után, pedig a txt fájlban úgy szerepel mint a fehér részen:
  

  Jó régen perleztem, szóval nem biztos, hogy jó. Beolvasásnál ez lecsapja a sorvégi entereket:

  chomp(my @alphabet= <ALPHABET>);

  kiíratásnál meg minden elem végéhez hosszáfűzi:

  print join("\n",@reversealphabet),"\n";

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