🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Wczytywanie parametrów z pliku - wyrażenie regularne

#51335
From: Pawel2420
Date: Mon, 06 Aug 2012 17:59
15 lines
454 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ł

Message-ID: <jvoprd$bmf$1@mx1.internetia.pl>
Path: polish.pugleaf.net!archive.newsdeef.eu!mbox2nntp-pl.comp.lang.perl.mbox.zip!p10ni52862764pbh.1!nntp.google.com!npeer01.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!news-in-01.newsfeed.easynews.com!easynews.com!easynews!novia!feeder3.cambriumusenet.nl!feeder1.cambriumusenet.nl!feed.tweaknews.nl!80.86.168.138.MISMATCH!news-feed.eu.lambdanet.net!news.bcc.de!newsfeeder.ewetel.de!newsfeed.xs4all.nl!newsfeed6.news.xs4all.nl!xs4all!newsgate.cistron.nl!newsgate.news.xs4all.nl!news2.euro.net!news.mixmin.net!feed.xsnews.nl!border-3.ams.xsnews.nl!plix.pl!newsfeed2.plix.pl!news.nask.pl!news.nask.org.pl!news.internetia.pl!not-for-mail