🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #52440

Wczytywanie parametrów z pliku - wyrażenie regularne

#52440
From: Pawel2420
Date: Mon, 06 Aug 2012 15:59
14 lines
1429 bytes
Witam !

Przy pomocy poniższego kodu wczytuję parametry oddzielone przecinkami. 
Problem jest z tym co wczytuje się do $p4. Gdy w pliku w jednej linii są 
4 parametry to na końcu ciągu wczytanego do $p4 pojawia się dodatkowy 
znak. Chyba jest to 0x0d lub 0x0a. Co muszę zmienić w kodzie aby ostatni 
parametr w linii był poprawnie wczytywany ?

open($file, "<", ...
while (<$file>){
chomp ;
($p1, $p2, $p3, $p4) = split(/,\s*/,$_, 0);

Paweł
Technical Details
Message-ID: <jvoprd$bmf$1@mx1.internetia.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!opal.futuro.pl!news.internetia.pl!not-for-mail

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!newsfeed.neostrada.pl!unt-exc-02.news.neostrada.pl!opal.futuro.pl!news.internetia.pl!not-for-mail
From: Pawel2420 <zly_adres@nic.pl>
Newsgroups: pl.comp.lang.perl
Subject: Wczytywanie parametrów z pliku -
 wyrażenie regularne
Date: Mon, 06 Aug 2012 17:59:04 +0200
Organization: Netia S.A.
Lines: 14
Message-ID: <jvoprd$bmf$1@mx1.internetia.pl>
NNTP-Posting-Host: 77-255-33-88.adsl.inetia.pl
Mime-Version: 1.0
X-Trace: mx1.internetia.pl 1344268973 11983 77.255.33.88 (6 Aug 2012 16:02:53 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Mon, 6 Aug 2012 16:02:53 +0000 (UTC)
X-Tech-Contact: usenet@internetia.pl
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:14.0) Gecko/20120713 Thunderbird/14.0
X-Server-Info: http://www.internetia.pl/
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit