[perl]Odczytywanie pliku tak, aby każda linijka była w innej zmiennej

[witek23]

Witam,

Chcę odczytać poniższy plik i "wrzucić" każdą linijkę wraz ze znakami spacji do innej zmiennej:

Kod: Zaznacz cały

(%i1)                    batch(/usr/lib/cgi-bin/nowy)

batching #p/usr/lib/cgi-bin/nowy
                                            3
(%i2)                             diff(x , x)
                                             2
(%o2)                                3 x

Zależy mi na tym, aby w zmiennych zawarte zostały białe znaki spacji, gdyż ustawienie poszczególnych wyrazów rzędów względem siebie ma znaczenia.

Na razie potrafię odczytać plik w ten sposób:

Kod: Zaznacz cały

open(UCHWYT, "plik.txt");
@linie = <UCHWYT>; 
close (UCHWYT);
print @linie;   

[leon1313]

Jesli znasz ilosc lini i nie zmienia ona się ( np 4) to proponuję:

Kod: Zaznacz cały

open(UCHWYT, "plik.txt");
$linia1 = <UCHWYT>;  # byc moze jeszcze chomp ($linia1);
$linia2 = <UCHWYT>; 
$linia3 = <UCHWYT>; 
$linia4 = <UCHWYT>; 
close (UCHWYT);

inne przypadki to chyba tylko eval

[Struchu]

Chcę odczytać poniższy plik i "wrzucić" każdą linijkę wraz ze znakami spacji do innej zmiennej:
(...) Na razie potrafię odczytać plik w ten sposób:

Kod: Zaznacz cały

open(UCHWYT, "plik.txt");
@linie = <UCHWYT>; 
close (UCHWYT);
print @linie;   

No tak - z tym że w ten sposób robisz właśnie to, co Ci jest potrzebne. Każdy element tablicy linie zawiera dokładnie jedną linijkę (ze wszystkimi białymi znakami itp.).

[witek23]

No tak - z tym że w ten sposób robisz właśnie to, co Ci jest potrzebne. Każdy element tablicy linie zawiera dokładnie jedną linijkę (ze wszystkimi białymi znakami itp.).

Rzeczywiście każdy element tablicy zawiera jedną linijkę i to jest ok. Problem jest z białymi znakami, powiedzmy, że jeśli mam 6 spacji i cyfrę 3 to te spacje znikają, a dla mnie są one istotne. W tym wszystkim chodzi o to, że zapis np: x^3 zawiera w jednym wierszu 3 położoną nad x, a w drugim x i wtedy spacje te są istotne, gdyż determinują położenie 3 nad x...

[Struchu]

Problem jest z białymi znakami, powiedzmy, że jeśli mam 6 spacji i cyfrę 3 to te spacje znikają, a dla mnie są one istotne.

Hmm, jesteś pewien że znikają? U mnie to wygląda następująco:

Kod: Zaznacz cały

struchu@dark-tower:~$ cat t
#!/usr/bin/perl

open(UCHWYT, "plik.txt");
@linie = ; 
close (UCHWYT);
print @linie[3];
struchu@dark-tower:~$ cat plik.txt
(%i1)                    batch(/usr/lib/cgi-bin/nowy)

batching #p/usr/lib/cgi-bin/nowy
                                            3
(%i2)                             diff(x , x)
                                             2
(%o2)                                3 x


struchu@dark-tower:~$ ./t
                                            3

[witek23]

Hmm, jesteś pewien że znikają? U mnie to wygląda następująco:

Kod: Zaznacz cały

struchu@dark-tower:~$ cat t
#!/usr/bin/perl

open(UCHWYT, "plik.txt");
@linie = ; 
close (UCHWYT);
print @linie[3];
struchu@dark-tower:~$ cat plik.txt
(%i1)                    batch(/usr/lib/cgi-bin/nowy)

batching #p/usr/lib/cgi-bin/nowy
                                            3
(%i2)                             diff(x , x)
                                             2
(%o2)                                3 x


struchu@dark-tower:~$ ./t
                                            3

Faktycznie, jeśli uruchamiać skrypt przez konsolę wszystko jest ok. Tylko zapomniałem napisać, że jest to skrypt .cgi i uruchamiam go przez przeglądarkę. Wszystko zbija mi się w jedną masę, nadal brak białych znaków...

[el.pescado]

Hmm, może użyj tagów <pre>? Język HTML ma tą właściwość, że usuwa "nadmiarowe" białe znaki. Ewentualnie, zmień Content-Type: na text/plain, wtedy przeglądarka nie będzie interpretować otrzymanych danych jako HTML.