i managed to figure out the cause.
i was undefining $/ .I wanted to use slurping technique.i.e reading in a
small file in a variable then making the changes.
Ive now undefined this within a local context.
Its working fine now.
anyone has an idea how this is affecting STDIN.
I tried using $|=1
(this list replies to the poster, not to the list unless I specify to list--I'm
growing accustomed)
(here's one for the list) (hopefully in the future I just send to list by
remembering to specify so)
On Thu, 29 Dec 2005 13:08 , [EMAIL PROTECTED] sent:
I cannot figure out how Net::FTP set its
Poonam Pahil wrote:
i managed to figure out the cause.
i was undefining $/ .I wanted to use slurping technique.i.e reading in a
small file in a variable then making the changes.
Ive now undefined this within a local context.
Its working fine now.
anyone has an idea how this is affecting
hi aditi - there are around 50 sample plots - including codes available at
GD::Graph ! you can use this - I am working on a linux platform and i
strongly recomends u to use the same. To install GD::Graph u have to install
gd-lib and GD, I can guide you installation matter - if ur using a linux
Hi all,
I have a 15 thousand directories - each of them contain say 10 files (all
*.gzip)
out of this 10 *.gz files - I want to check whether a file named foo.gz
contain any content or not - since my files are gzipped even the blank file
occupies some size.
have a look at my code
On 12/30/05, S Khadar [EMAIL PROTECTED] wrote:
$dir = shift;
$dir =/home/trial;
You seem to be over-writing what you just put into $dir. (I think this
is just your debugging code, though.)
opendir(M,$dir);
Just as when using open(), it's important to check for errors with
opendir() by using
I have seen this lately in my readings:]
sub _dfv_profile {
return {
'required' = [ qw( fname lname ) ]
};
}
Note the leading underscore in the sub name. What does that mean? Is that
like making it private?
Robert
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional
On 12/30/05, S Khadar [EMAIL PROTECTED] wrote:
#!/usr/bin/perl
use Shell;
...
$dmchk=zless( $dir/$_/foo.gz);
As an aside note, Cperldoc Shell advises against this style [ use
Shell nothing ; ]. Prefer this:
use Shell qw(zless);
so that you know that you are not calling some
On 12/30/05, Robert Hicks [EMAIL PROTECTED] wrote:
Note the leading underscore in the sub name. What does that mean? Is that
like making it private?
Yes. But as a convention: that means: you sensible reader, don't you
try to rely on this function outside of this immediate realm of code.
But you
Adriano Ferreira [EMAIL PROTECTED] wrote in message
news:[EMAIL PROTECTED]
On 12/30/05, Robert Hicks [EMAIL PROTECTED] wrote:
Note the leading underscore in the sub name. What does that mean? Is that
like making it private?
Yes. But as a convention: that means: you sensible reader, don't you
On Dec 30, 2005, at 13:14, S Khadar wrote:
Hi all,
I have a 15 thousand directories - each of them contain say 10
files (all
*.gzip)
out of this 10 *.gz files - I want to check whether a file named
foo.gz
contain any content or not - since my files are gzipped even the
blank file
Hello,
In the Script below the line: last if ($num = 35)
is giving me this error: Use of uninitialized value in int
How do I avoid this error?
my @files contains: Gambia001.tiff through Gambia100.tiff
#!/usr/bin/perl -w
my @files =*;
$tmp= 1;
for (@files){
my $old = $_;
$_ =~ /(\d+)/;
On 12/30/05, Xavier Noria [EMAIL PROTECTED] wrote:
Even if gzipped files have always more than 0 bytes, wouldn't it be
true than all empty gzipped files have the same size, and that non-
empty gzipped files are greater than that minimum? In this Mac that
size seems to be 24 bytes.
Nope.
David Gilden wrote:
Hello,
Hello,
In the Script below the line: last if ($num = 35)
is giving me this error: Use of uninitialized value in int
How do I avoid this error?
a) Initialize it :)
my $num = 0;
b) don't use warnings - but don't do that
c) turn off uninitialized
On 12/30/05, David Gilden [EMAIL PROTECTED] wrote:
In the Script below the line: last if ($num = 35)
is giving me this error: Use of uninitialized value in int
That's not an error, but a warning. You will find that execution goes
after this.
How do I avoid this error?
@files probably contain
Hi;
I have enclosed both the perl source and the associated output of a
bruce-force anagram script that I wrote that has a logic error in it
that I can't find.
It does not generate all of the permutations of the letters in the
words specified. Why not?
Secondly, on the matter of
Wolcott, Kenneth A wrote:
Hi;
I have enclosed both the perl source and the associated output of a
bruce-force anagram script that I wrote that has a logic error in it
that I can't find.
Instead of a new wheel search cpan for Permutation
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
David Gilden wrote:
Hello,
Hello,
In the Script below the line: last if ($num = 35)
is giving me this error: Use of uninitialized value in int
How do I avoid this error?
You are using the results of a regular expression match without verifying that
the regular expression matched
Jupiter host has a good point about not reinventing the wheel but it
might still be educational to fix this code. There's an interesting
warning if you run this with '-w':
word=NERO
|NERO|
|ENRO|
|RNEO|
|ONER|
Use of uninitialized value in join or string at ./anagram.pl line 33.
|NERO|
Use
- Original Message -
From: Wolcott, Kenneth A [EMAIL PROTECTED]
Newsgroups: perl.beginners
To: beginners@perl.org
Sent: Friday, December 30, 2005 3:23 PM
Subject: please help find logic error in home-brewed brute force anagram
solver/creator script
Hi;
I have enclosed both the
On 12/30/05, David Gilden [EMAIL PROTECTED] wrote:
$_ =~ /(\d+)/;
$num = int($1);
If there's no digit in $_, then $1 will be undef (or worse; see
below). I think that's probably your bug: Some filename isn't like the
others. Instead of this:
my @files =*;
Consider something like this:
21 matches
Mail list logo
