you are correct, you do not need " " around $.
thank you!
I was using strict and warnings, but must of had another error.
I am unfamiliar with the variable $.? I tried playing with it, but was
unsuccessful. I could not find it in cookbook nor in programming perl.



linect=$.
linect=1;
while ( <FILEHANDLE>) {
if ( $linect > 9 ) {
do whatever ...
}
$linect++;
}


Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





Jeff 'japhy'
Pinyan
<[Email Removed] To
rg> [Email Removed]
cc
02/15/2005 10:38 'Perl Beginners '
AM <[Email Removed]>
Subject
RE: Start reading from a specific
line










On Feb 15, [Email Removed] said:

[Email Removed] wrote:

From: [Email Removed]

Could not find this variable in perlvar under 5.8.0 for sun solaris
can you explain it?

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





"Jenda Krynicky"
<[Email Removed]
z> To
'Perl Beginners '
02/15/2005 11:14 <[Email Removed]>
AM cc

Subject
RE: Start reading from a specific
line










From: [Email Removed]

From: [Email Removed]

Well, it is, you know. In my 3rd Edn, July 2000 printing, it's indexed
about half way down the left column on p1011, where it is also described as
$INPUT_LINE_NUMBER. Admittedly, the first reference (to p103) is off, as
some refs are in this edn. But it's only just over onto p104. And p665
(correct this time!) gives you the goods.

Rgds, GStC.


-----Original Message-----
From: [Email Removed] [mailto:[Email Removed]]
Sent: Tuesday, February 15, 2005 11:01 AM
To: 'Perl Beginners '
Subject: RE: Start reading from a specific line

you are correct, you do not need " " around $.
thank you!
I was using strict and warnings, but must of had another error.
I am unfamiliar with the variable $.? I tried playing with it, but was
unsuccessful. I could not find it in cookbook nor in programming perl.

Yes there was some mis-communication as I thought he was referring to
variable $.? as opposed to $.


Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





"Graeme St.
Clair"
<Graeme.St.Clair@ To
hds.com> "'Perl Beginners '"
<[Email Removed]>
02/15/2005 02:56 cc
PM
Subject
RE: Start reading from a specific
line










Well, it is, you know. In my 3rd Edn, July 2000 printing, it's indexed
about half way down the left column on p1011, where it is also described as
$INPUT_LINE_NUMBER. Admittedly, the first reference (to p103) is off, as
some refs are in this edn. But it's only just over onto p104. And p665
(correct this time!) gives you the goods.

Rgds, GStC.


-----Original Message-----
From: [Email Removed] [mailto:[Email Removed]]
Sent: Tuesday, February 15, 2005 11:01 AM
To: 'Perl Beginners '
Subject: RE: Start reading from a specific line

you are correct, you do not need " " around $.
thank you!
I was using strict and warnings, but must of had another error.
I am unfamiliar with the variable $.? I tried playing with it, but was
unsuccessful. I could not find it in cookbook nor in programming perl.


--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Jenda Krynicky wrote:

Jeff 'japhy' Pinyan wrote:

On Wed, 16 Feb 2005, Tim Johnson wrote:

On Friday 18 Feb 2005 23:16, Tyson Sommer wrote:

Tyson Sommer wrote:

-----Original Message-----
From: Harold Castro [mailto:[Email Removed]]
Sent: Mon 2/21/2005 9:42 AM
To: [Email Removed]
Cc:
Subject: Perl waits for while to finish before printing if on the same line,why?(countdown prog)
Hi,
I'm new to perl and i'm trying to create a simple
program that will act like a time bomb but will print
a dot(something like a progress bar every second until
the specified time arrives. Here's my code.

my $countdown = 5;
while ($countdown > 0){
print ".";
sleep 1;
$countdown--;
}
print "Kaboom!!"

And the result..
after waiting for 5 seconds, it displayed this line at
once:

......Kaboom!!


Why does this happens with a while loop? I told it to
print a single dot every 1 second. Do you know another
way of making my progress bar program that display a
single dot every one second on the same line until it
reaches a given time?

Thank you!










__________________________________
Do you Yahoo!?
Yahoo! Mail - You care about security. So do we.
http://promotions.yahoo.com/new_mail

--
To unsubscribe, e-mail: [Email Removed]
For additional commands, e-mail: [Email Removed]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




Hi Harold,
if you set $| to some postive value, it will work.
add one line to your script.
---------------------------------
$| = 1;
my $countdown = 5;
while ($countdown > 0){
print ".";
sleep 1;
$countdown--;
}
print "Kaboom!!"

---------------------------------
The problem is with buffers. Though I am not very clear whats happening internally, I can say setting $| to some positive value will at the beginning of script will solve the problem. It flushes the buffer after every print.
HTH
Tapas

Mark Jayson Alvarez <[Email Removed]> asked:
[...]

On Wed, 23 Feb 2005, Tyson Sommer wrote:

David Moron wrote:

David Moron wrote:

The consumer has only to read lines from its STDIN and print them to the
STDOUT.

These scripts are a simplified version of the producer/consumer problem
and they try to emulate a multithreaded perl program. IMHO It's not
important what I want to do with consumer, the problem is that consumer
cann't read lines from producer because producer never sends EOF.


Bob Showalter wrote:

I need the read non-blocking of check if there's any
data ready before doing the READ.

The complete consumer is a program that reads account
packets from a radius server (this problem has been solved)
and stores the Radius attributes (MAC,IP,User_name) in a
List of Hashes. This list of hashes has to be processed
every 60 seconds.

The consumer only reads from stdin in order to add new
packets to the listofHashes.


Here there's the consumer that works with:
#cat accounts| ./consumer.pl
where accounts has:
MAC1;IP1;USer1
MAC2;IP2;USer2


#consumer.pl
#!/usr/bin/perl -w


my (%account,@accountList,@accountListTemp);


while(1){
my (@lines,$line,@values);
sleep(60);
@lines = <STDIN>;
foreach $line (@lines){
#MAC;IP;User_Namen
chomp($line);
@values = split ';',$line;
$account{"MAC"} = $values[0];
$account{"IP"} = $values[1];
$account{"Name"} = $values[2];
push @accountList, {%account};
}


my $i;
for $i (0 .. $#accountList){
#Process @accountList <-- IMPORTANT !!


}
}

Bob Showalter wrote:

John wrote:

understood!

thanks,






"Wiggins
d'Anconia"
<wiggins@danconia To
.org> [Email Removed]
cc
02/28/2005 01:05 Perl Beginners <[Email Removed]>
PM Subject
Re: return code










[Email Removed] wrote:

Carl Johnson wrote:

Hey Carl -

I got in a hurry and did some cut and paste without paying close enough
attention.

The line should read

my $dir = 'C:GISwrapped_data';


I apologize for the error.

Mark

[Email Removed] wrote:

yeah thats what I thought and the problem is Perl came installed under
/usr/bin by default. Obviously is was compiled by cc_r and currently I am
trying to get a trial version of XLC IBMs AIX C compiler.

thank you,

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





"Wiggins
d'Anconia"
<wiggins@danconia To
.org> [Email Removed]
cc
03/01/2005 09:01 Perl Beginners <[Email Removed]>
AM Subject
Re: Digest-SHA2.10 compilation on
AIX 5.2 fails










[Email Removed] wrote:

Nevermind I got it!


my @a=();
my $e=0;
my $res = Net::DNS::Resolver->new;
my $query = $res->query(".ohnet", "NS");
if ( $query != 0 or $query != undef or $query != ' ' ) {
foreach ($query->answer) {
if ( $_->type eq 'NS' ) {
#next unless $_->type eq "A";
#print $_->nsdname,"n";
foreach ($_->nsdname) {
push (@a,$_) if $_ =~ "svr";
$e++;
}
} else {
warn "query failed: ", $res->errorstring, "n";
}
}
print $a[0],"n";
print $a[1],"n";
}

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





Derek
Smith/Staff/OhioH
ealth To
Perl Beginners <[Email Removed]>
03/01/2005 02:17 cc
PM
Subject
assigning data to array, but only
element 0 is getting the data









my @a=();
my $res = Net::DNS::Resolver->new;
my $query = $res->query(".ohnet", "NS");
if ( $query != 0 or $query != undef or $query != ' ' ) {
foreach ($query->answer) {
if ( $_->type eq 'NS' ) {
#next unless $_->type eq "A";
#print $_->nsdname,"n";
foreach ($_->nsdname) {
push @a,$_;
$a++;
}
print $a[1];
}else{
.....
}
}
}


The end output looks like

svrqip01
svrqip02
svgqip01
svgqip02
svvqip01
svvqip02

and in the end all I want is svrqip 01 and 02 which is why I am assigning
$_->nsdname to an array, but the only element that is getting any data is
0???


thank you,

derek

Jose Nyimi wrote:

Hi All:

Thanks for the replies.It works correctly.
I need to do similar thing for extracting the time in the format hhmm
ie if it 2:05 pm then i need to display 1405

If the date command returns
Thu Mar 3 13:56:24 PST 2005
then
i need to convert the time format to
1356

Please let me know how I can do this.
Thanks.

On Thu, 3 Mar 2005 13:01:24 -0800, Wagner, David --- Senior Programmer
Analyst --- WGO <[Email Removed]> wrote:

Nishi Prafull wrote:

yes :-)
I realised that after sending you the email. Sorry!

Thanks for the reply.


On Thu, 3 Mar 2005 14:18:04 -0800, Wagner, David --- Senior Programmer
Analyst --- WGO <[Email Removed]> wrote:

Bret Goodfellow wrote:

got it dude! thanks;


my code is

foreach ( $file1, $file2, $file3, $file4 ) {

my $logs = new Logfile::Rotate (File => $_,

Count => 10,
Gzip => '/usr/bin/gzip',
Dir => '/usr/local/log/old',
Flock => 'yes',
Persist => 'yes' );
$logs->rotate();

}

Derek B. Smith
OhioHealth IT
UNIX / TSM / EDM Teams





Rathna N
<rathnasuresh@gma
il.com> To
"[Email Removed]"
03/09/2005 06:45 <[Email Removed]>
AM cc

Subject
Please respond to Re: log rotate on multiple files
Rathna N
<rathnasuresh@gma
il.com>







seems like, u should do it in a loop for each file.
http://search.cpan.org/~paulg/Logfile-Rotate-1.04/Rotate.pm

thanks,
Rathna


On Tue, 8 Mar 2005 22:03:44 -0500, [Email Removed]
<[Email Removed]> wrote:

Bob Showalter wrote:

Chances are the correct 8.3 filename you're looking for is Acroba~2, but
why are you using the old 8.3 filenames?

If you're just worried about spaces, try putting quotes in the command
you're sending to the system, like this:

system(""C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
C:\PDFs\test.pdf");



-----Original Message-----
From: Daniel Kasak [mailto:[Email Removed]]
Sent: Wednesday, March 09, 2005 3:32 PM
To: [Email Removed]
Subject: Execute application with a space in it's path

[Tim Johnson] <snip>

I can get to the 'Adobe' folder with the commands ( from the command
prompt ):

c:
cd c:Progra~1Adobe

However I can't get into the 'Acrobat 7.0' folder in the same way, ie:

c:
cd c:Progra~1AdobeAcroba~1

[Tim Johnson] <snip>

My code was going to be:

system("C:\Progra~1\Adobe\Acroba~1\Reader\AcroRd32
C:\PDFs\test.pdf");

[Tim Johnson] <snip>

Tim Johnson wrote:

Larsen, Errin M HMMA/IT wrote:

<<SNIP>>

Larsen, Errin M HMMA/IT wrote:

From: "Larsen, Errin M HMMA/IT" <[Email Removed]>

On Thu, Mar 10, 2005 at 11:10:06AM -0500, Wiggins d'Anconia wrote:

Hi,

I need to modify some existing code. The below line checks a file I'm reading in and does a search/replace based on the match. Currently I'm looking for...

if (/00000 set/) { ...etc.

Because the "000000" can change to different numbers (but always 6 figures which could include a period) how can I do a wildcard search?

For example I also need to search for ".00000". Or it could also be ".45306" or "123456" etc.

if (/WILDCARD set/) { ...etc.

FlashMX wrote:

Cool...that worked...thanks

I forgot to mention that one the match is found I do a search and replace

if (/[0-9.]{6} setgray/) {
s/.90000 set/-50.2 v n.90000 set/;

This is the issue. I need to "grab" the match number (whatever it is) and add it into the s/

So...

if (/[0-9.]{6} setgray/) {
s/NUMBER_FROM_ABOVE set/-50.2 v nNUMBER_FROM_ABOVE set/;

Because it's up-side down.
Why is that?
It makes replies harder to read.
Why not?
Please don't top-post.
(Sherm Pendley, MacOSX List)

FlashMX wrote:

I am running ActivePerl 5.8.6 on Windows XP.

I am unable to execute a statement like -- perl -e '<perl code>' --
I always get this response: Can't find string terminator "'" anywhere before
EOF at -e line 1.

Does not matter if I use (', ", or `) .. same response expect it can't find
the string terminator matching the used quotation mark.

What am I doing wrong?

Thank you for any assistance you may give me.