Re: wyraz za, wyraz przed

Article View: pl.comp.lang.perl

Article #39913

#39913

From: Zbyszek Malec
Date: Wed, 03 Nov 2004 13:02

25 lines
1626 bytes

Tadda!!!  Maciej Misiak  Tadda!!!
> No to na poczatek kilka uwag: jesli wczytujesz linie do zmiennej
> $linia to po pierwsze linijka
> $line = 0

No cóż... Głupi jestem... Nawet przepisać dobrze nie potrafię :] Wersja
poprawiona (nie wiem czemu ja tamto tak napisałem :\ )

$lineNumber = 0;

while ( $line = <INP>)
{
    ++$lineNumber;
    while( $line =~  /(^|([^\s]+\s))\s*${word}((\s+[^\s]+)|(\s*$))/g )
    {
        printf("word in line ${lineNumber}: $& \n");
    }
}

Jak widać zamiast $lineNumber wszędzie wpisałem $line :]
No ale to chyba na to samo wychodzi co w Twoim rozwiązaniu. Dlaczego
więc niektóre "nie" są opuszczane?

-- 
Zbyszek Malec       Ustronie 104         gg: 2756100

Technical Details

Message-ID: <cmaktj$6uj$1@inews.gazeta.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail

References: <cm8pa3$3t4$1@inews.gazeta.pl> <42c6.000007e4.41888778@newsgate.onet.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: "Zbyszek Malec" <zbyszekto@tlen.pl>
Newsgroups: pl.comp.lang.perl
Subject: Re: wyraz za, wyraz przed
Date: Wed, 3 Nov 2004 14:02:42 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 26
Message-ID: <cmaktj$6uj$1@inews.gazeta.pl>
References: <cm8pa3$3t4$1@inews.gazeta.pl> <42c6.000007e4.41888778@newsgate.onet.pl>
NNTP-Posting-Host: ds29.internetdsl.tpnet.pl
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1099486963 7123 80.53.254.29 (3 Nov 2004 13:02:43 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Wed, 3 Nov 2004 13:02:43 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
X-Priority: 3
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-User: zbyszanna
X-MSMail-Priority: Normal
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message