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:
- Original Message -
From: ""Wolcott, Kenneth A"" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To:
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 perl source and
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 o
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 s
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 a
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 effici
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 co
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 wanring
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.
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 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
occupi
"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, do
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.
Bu
On 12/30/05, S Khadar <[EMAIL PROTECTED]> wrote:
> #!/usr/bin/perl
> use Shell;
...
> $dmchk=zless( "$dir/$_/foo.gz");
As an aside note, C advises against this style [ use
Shell ; ]. Prefer this:
use Shell qw(zless);
so that you know that you are not calling some program by mistake/t
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 addition
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() b
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
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
mach
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 aff
(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 loc
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 .
I tried using $|=1 but th
21 matches
Mail list logo
