CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner:
Please help

 



tkrason
New User

Nov 25, 2013, 2:28 AM

Post #1 of 3 (1304 views)
Please help Can't Post

Hello,
please one more help. needs to tegio dapisaŠ script to additionally wrote out a line that includes, for example, the word "HELP"


use strict;
use warnings;


my $ dir = 'C: \ Observer \ spool \ 2013-11-20 \ / *';
my $ count = 0;

for (<$ dir / *. txt>) {
push @ ARGV, $ _;

while (<>) {

$ count + + if / \ bpoprawny \ b /;
}
}
print $ count;


BillKSmith
Veteran

Nov 25, 2013, 10:09 AM

Post #2 of 3 (1298 views)
Re: [tkrason] Please help [In reply to] Can't Post

This looks like a solution you were given for your previous thread. I assume that you want to modify it to meet new requirements. Show us what you have tried and why it does not work. Frown
Good Luck,
Bill


Laurent_R
Veteran / Moderator

Nov 26, 2013, 12:00 PM

Post #3 of 3 (1276 views)
Re: [BillKSmith] Please help [In reply to] Can't Post

I would add that your requirement is far from clear.

Maybe you just want this:


Code
print $count, "HELP";


Or possibly:

Code
print $count, "HELP\n";



(This post was edited by Laurent_R on Nov 26, 2013, 12:00 PM)

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives