> I have a program that needs Tk.pm.
> I run perl under Ubuntu 12.04
> After configuring the Makefile 'make' gives the following error:
Does not Ubuntu, Synaptic, show a perl-tk tk8.4 and tk8.4-dev
Just install those might be easier. Synaptic will find any other
depend
xHash-1.23/lib/Tie/IxHash.pm
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
appens if you remove the ',3' from the $unparsed_date calculation?
Cos I am not sure that is an argument in that Date::Calc computation.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
, but if on a *nix system, you should read
man bash to see what profiles are executed with your system and write
to them accordingly
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
les?
There is spam free news group, comp.lang.perl.announce that puts out a
posting every day listing a sample of about 50 modules.
If you read that every day, you will get the idea of what is what.
Also http://search.cpan.org/ is the home site that allows you to
search for modules.
--
Ow
he results.(and not quite understanding
what it does)
However, it removes line feeds as well, so maybe that code is not all
that good.
Just wondering if this would be just as adequate in filtering
"malicious code"
$q1_elaborate =~ s/[`\\"|!\.\^]//g
TIA
--
Owen
--
To unsubscribe
Linux
> web server here:
>
> http://www.raspberryperl.com
Love it.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
hine it is working and in the other machine it is
>> not
>> working.
>>
>> Ex:- system("./submit_now.pl $");
>>
>> can you please, tell me what is the reason?
>> and as well solution.
I don't know if anyone else has given this answer
> I want to subscribe to this perl forum
Look at the message headers...
List-Subscribe: <mailto:beginners-subscr...@perl.org>
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
;?
The "split /\./" I understand. I've looked at perldoc pack and sort of
see it is taking the ip4 address, packing it up and then unpacking.
But what's with these "=>" things? How is that routine meant to read?
TIA
Owen
=
b/mysql
> free ExData --fields-enclosed-by=\"\ --fields-terminated-by=\|\");
Count the ". One way or the other, the parser cannot find a matching "
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
t; my $xmlHash = $xmlDoc->toHash();
>
> print Dumper($xmlHash);
>
>
> I get the following output:
> VAR1 = {
> 'book' => 'Learning Perl '
> };
>
>
> I would have expecte to have
>book' => ' Learning Perl &#
0
> /usr/lib/perl5/vendor_perl/5.10.0/i386-linux-thread-multi
> /usr/lib/perl5/vendor_perl /usr/lib/perl5/site_perl .)
> at lib/Devel/REPL/Plugin/Selenium.pm line 6.
> BEGIN failed--compilation aborted at lib/Devel/REPL/Plugin/Selenium.pm
> line 6.
Perhaps you should install that, see
qw(open close);
use 5.012;
use Time::localtime;
use File::stat;
open my $fh, '<', "too0.tex";
my $modtime = ctime( stat($fh)->mtime );
say $modtime;
printf "Year is %d\n", localtime->year() + 1900;
=
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
t; which deals with this kind of approach?
Try google, search on
example perl grep
example perl awk
example perl tr
It will get you started
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ways to do that?
>
>
> okay I answered my own question. I am wondering if there is a
> different
> way?
>
> I did:
>
> $it =~ s/(\S{4})/$1\./g;
What is there is only, say 11 characters? Or doesn't that situation arise
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
cated.
Any clues as to the syntax to get back the data would be appreciated
TIA
Owen
#!/usr/bin/perl
use strict;
use warnings;
my @lat;
my @lon;
my @desc;
my $rest_ref;
while () {
my ( $lat, $lon, @rest ) = split;
print &
; Thanks in advance.
>
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> my $file = "sample.txt";
>
> if ( -e $file ) {
> print "File exists.\n";
> } else {
> print "File does not exist.\n";
> }
>
> __END__
> from linux:
>
> cut -f1,5- -d" " file |grep -v "^0" | sort -n > to_file; <==this
> line: how to achieve this in perl?
Perhaps try something like
system (cut -f1,5- -d" " file |grep -v "^0" | sort -n > to_file);
You
would love to know the correct syntax for the RE
TIA
Owen
=
#!/usr/bin/perl
use strict;
use warnings;
while () {
my $line = $_;
my @line = split /,/;
$line[1] =~ s /\"//g;
print "$line[1]\n" if $l
> Hi there,
>
> Hereby I have a string parsing problem to ask. The sample strings look
> like this:
>
> : CC02 0565 8E93 D501 0100 6273 .eb
> : 6800 0500 9093 D501 0100 1400 h...
>
> What I am interested is the the 21st and 22nd byte value
There is a person on the Internet using this to advise his email
address.
perl -le "print scalar reverse qq/moc.liamg\100halbhalb/"
I am intrigued as to how "001\" becomes "@"
What should I be reading?
TIA
Owen
--
To unsubscribe, e-mail: begi
e a general "IQ" type of question and any answer would
do as long as you could explain it.
In my mind the simplest answer would have been to randomly split the
herd in two. The probability of each group of ten meeting the criteria
would be almost the same?
Owen
--
To unsubscribe,
I'm writing a script for work that navigates users through a complex
decision-making tree, where decisions are made based on some fairly in-depth
processing of data entered by the user. The script runs really well, does
exactly what we need it to do. I'm having some trouble with the humans
using
> Thanks all!!
>
> Can someone tell me if you have any experience in generating files
> quickly(not sparse) in unix?
>
> I want to generate millions of files under some directory
>
This will generate 1 files in less than a second. They are 0 size,
so just write something into them if you don't
ich one should
> I use..?
>
> Config::General, Config::Simple, Config::Inifiles, just to name a
> few..
I have used Config::General, its fine and easy to usse.
owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
to 3 digits after decimal point
$rounded = sprintf("%.3f", $number);
===
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
__DATA__
>8. 1
>9. 2
>10. 3
>11. 4
>12. 5
>13. 6
>14. 7
>15. 8
>
> So my problem is what the different about the two scripts ..
>
> Because I am the perl beginner . If the question is very simple,
> please
> forgive me .
uot;TEST";
&testsub1();
I'm guessing that I'm misunderstanding how Perl compiles the code. I'm
reading through Learning Perl and Programming Perl but I've either missed
something, or have yet to read far enough. Any explanation would be
appreciated.
OWEN.
a directory is to calculate the total, in MB's, the size of
> the files
> in a particular directory folder.
http://www.perlmonks.org/?node_id=168974 may help.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
y around this? What are the
disadvantages to using "our" in a fairly widespread manner, to avoid having
to waste time going back and making the substitutions.
Thanks for any input.
Regards,
Owen
even if it is effective). Can someone nudge
me in the right direction?
-Owen.
> On 07/24/2010 08:53 AM, Owen wrote:
>>
>>> hi,
>>> it got some error while adding data into sqlite through Perl script
>>> on
>>> Apache ... script can able to read the file but not able to write
>>> .. I
>>> have set the permissi
so
> am
> thinking a Perl script should be the way to go then instead so I can
> have it
> on any UNIX's flavours.
>
> Any suggestion will be very much appreciated.
stat?
Try # perldoc -f stat
and see if it finds anything for you
--
Owen
--
To unsubscribe, e-mail:
tp://search.cpan.org/search?query=csv&mode=all
http://search.cpan.org/~tmtm/Text-CSV-Simple-1.00/lib/Text/CSV/Simple.pm
seems to be one that could suit you?
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
gt;
Have a look at http://search.cpan.org/~andya/Geo-Gpx-0.26/lib/Geo/Gpx.pm
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
> Hi all,
>
> I know perl -V prints what are the current modules directories that
> are
> accessible ... but is there a way to list all the available modules
> from
> each directories as well?
>
Try this;
perldoc -q "How do I find which modules are install
quot;}
Then read all the files in A
opendir( my $DB_DIR, "A" );
my @files = readdir($DB_DIR);
close $DB_DIR;
Then copy them across;
foreach my $file(@files){copy "$file", "B/$file"};
The variable for the OS is "$^O". You need to use this the then set
#x27;t make a separate hash of the value because of multiple values of
the value
http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-a-hash-(optionally-by-value-instead-of-key)%3f
( http://goo.gl/Ol31 )
only shows the sorting where the hash has only a scalar.
TIA
Owen
--
To unsubscri
t;;
print LIST }".
This keyword is only available when the "say" feature is enabled: see
feature.
=perldoc -q feature
No documentation for perl FAQ keyword `feature' found
Just wondering how I can featureise 'say'
TIA
>
> Cany anyone advise me how to deal with this as I need to find a way to
> round
> correctly in all cases not just in cases where Perl decides it is a
> good
> idea to do so. :-)
>
> Regards,
This may be of interest;
http://faq.perl.org/perlfaq4.html#Does_Perl_have_a_rou
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On Fri, 23 Apr 2010 15:04:27 +0800
"CHAN, KENNETH 1 [AG/7721]" wrote:
> First of all, thanks Owen, Shlomi and Shawn for your advices.
> But I still can't get the line appear on the transparent circle. I am
> guessing maybe there is a problem with my Perl setting or so
including EXTERN.h
Do you have EXTERN.h anywhere? Maybe try symbolically link it to the
CORE directory?
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
fter a while decided that some
of the complaints issued weren't really worth worrying about. I hardly
look at the book these days.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
d drive. The background line
is there when I viewed it in xview.
What did you use to view the image?
Owen (see below for rewritten code)
>
> ## Code ###
>
> print "Content-type: text/plain; charset-iso-8859-1\n\n";
>
>
>
> use
s use strict
use warnings;# helps in debugging
my $target = "D:\testfile.txt";
open (my $NEWBIE, '<', "$target") or die "can't open $target $!\n";
my @arr = <$NEWBIE>;
foreach my $line (@arr){
print "$line"; # no need for a
ib/Session.pm
> line 38.
>
> Could not create new session: Can't locate object method "TIEHASH" via
> package " Apache::Session::MySQL" at /var/www/cgi-bin/lib/Session.pm
> line 38
I really don't know, but the documentation shows;
tie %hash,
n example only
>
> Any idea how to match this properly?
Try one of the posix character classes.[[:class]] where class would
probably be alnum (See http://perldoc.perl.org/perlre.html )
If the data base contains names like O'Rourke, then you might have to
rethink your database o
auto increments to 'z', then when the next comparison is made, it is
equal to 'z' and so increments again.
I suspect auto increment is different for letters and numbers
> print "\n\n";
>
> for(1..7){
> print " $letter ";
> $letter++;
> }
Which goes to show that the thing after 'z' is 'aa' using the
auto increment
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
mming
Perl (3rd) and it's not entirely clear to me how to proceed with a hash.
Owen
On Mon, Apr 12, 2010 at 10:11 PM, Peter Scott wrote:
> On Mon, 12 Apr 2010 21:06:58 -0500, Owen Chavez wrote:
> > I have a pattern matching question using Perl 5.10, Windows 7. Suppose
> >
e second "I" although I've included the /g modifier.
Can anyone tell me why? How can I accomplish this?
Owen Chavez
ething unwise like split// and turn you scalar
> into a multi-million elements array.
I have a file of 1s and 0's that is 15689303 bytes;
running the program below takes about 10 seconds on reasonably fast dual
core with 4 GByte of RAM
==
\n";
while (<$FILETEST>) {
chomp;
my @words= split / /;
my $nr_words = @words;
print "Number of words is $nr_words and the words are\n @words\n";
}
But you might want to split on white space to cope with the occasions
when there is more than one space between words.
You have done something that puts a space between letters when
printing out.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
how to do it (The error message ...
Can't use string ("4") as an ARRAY ref while "strict refs" in use ..)
should tell me something, but I'm not sure what.
Where am I wrong?
TIA
Owen
=
#!/usr/bin/perl
use strict;
my @folders
f and xml threw up many results. Here is one;
http://search.cpan.org/~awin/XML-Parser-Style-RDF-0.01/RDF.pm
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
> Besides this forum, does anyone know of a good Perl/Tk email
> list/forum in which to ask questions about Perl/Tk?
You can try comp.lang.perl.tk which is fairly quiet
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: begin
ons -Tlwe 'find { wanted
=> sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
> What about open office spread sheets. Can they be read by these
> excel CPAN entries?
Probably not, Excel is Excel and open Office is open office
However if you search CPAN for openoffice, you might find something to
use, http://search.cpan.org/search?query=OpenOffice&mode=a
others, like Spreadsheet::DataFromExcel
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ou would be advised to look at the perl modules, Date::Calc or
Date::Manip
Having extracted your date, you need to get the day, month and year
and then feed that into Date::Calc , eg;
use Date::Calc qw(Delta_Days);
$Dd = Delta_Days($year1,$month1,$day1,$year2,$month2,$day2);
--
Owen
'three' is being taken as
> 2nd
> input parameter and I guess white space is a default delimiter. Is
> there any
> special delimiter which I can use to skip an I/P parameter.
I know what you are asking, and I have seen the answer by Shlomi Fish
but wonder if using Getopt::S
>>
>> What does it say in a hex editor?
>>
>
>
> # hexdump Test.pl
> 000
> *
> 0001090
> 0001094
I would take a guess and say don't waste anymore time on it. Put your
energies in rewriting the p
file. See it anyway? *
>
> Is there a way I can convert this binary file to its initial readable
> state.
>
What does it say in a hex editor?
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
fail.
unless ( $ARGV[2] =~ /^20\d{6}?/ ) { print
"$ARGV[2]\tdate format is MMDD, eg 20091031\n"; }
How do I get the regex to fail a 9 digit number
I suppose as a work around, I could say;
unless ((length($ARGV[2]) == 8) and ( $ARGV[2] =~ /^20/){fail}
TIA
Owen
--
To unsubscri
ot;; #extract pid from here
exec "kill -9 $1"
}
else { exec "/path/to/myprogram" }# start program
=
You maybe able to adapt it for your needs. EG, delete the PID file if
the program is running.
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
se days had one liners most of which I could not get to work on
W3.1
So 10 years ago I installed RH-5.2 and bingo, all the one liners
started to work.
The rest is history.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h..
r"} = "/usr/bin/lpr";
>
> Nor do
>
> $ENV{"/usr/bin/lpr"} = "lpr";
> $ENV{"PATH"} = "/usr/bin/lpr";
>
> Thanks for helping out.
>
Forget about the $ENV{}
In your command, where you have lpr
replace that with
eplaced by libssl.so.10. Can you
> give me
> an idea on how to solve this?
>
> Thank you for helping out.
Well I have no idea if it will solve your problem, but try one of these;
a. make a symbolic link between libssl.so.8 and libssl.so.10
b. or simply copy libssl.so.10 as lbssl.
Or this type of stuff should be done with another language/technology?
You are looking at Ajax
You might want to look at CGI::Ajax it has heaps of examples
Also search CPAN for Ajax for more modules
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additio
.
>
> My code snippet is given below
>
> my %quota=$imap->getquotaroot('INBOX') || die $imap->error();
> print "Quota: $quota{'STORAGE'} \n";
Hi,
Just out of interest, what permissions/ownership are assigned to the
'quota' executable
ogram as to who is trying to infect
your machine, or trying to break in.
Just try it, just do it, every one has their own preferred way of
doing things
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
a;
my $a = $a ||= 2;
print "$a\n";
So I come to the conclusion that || and ||= are the same, but in terms
of precedence, || will have the higher precedence than ||=
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
line (){ push (@array, $line) }
print "@array\n";
__DATA__
6754
7890
6543
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
> On Tue, Jul 7, 2009 at 4:36 PM, Owen wrote:
>>
>>
>>> what's the standard module for accessing MSSQL?
>>> I searched on CPAN but found a lot.
>>> The program should be run on Linux, not Windows.
>>> Thanks.
>>
>>
>>
>
ts of information.
Alternatively, get hold of the book, Programming the Perl DBI by
Alligator Descartes and Tim Bunce.
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
>
> Hello,
>
>> On Mon, 2009-06-08 at 23:38 -0700, Irfan Sayed wrote:
>> ____
>> From: Owen
>> To: Irfan Sayed
>> Cc: beginners@perl.org
>> Sent: Tuesday, June 9, 2009 12:03:49 PM
>> Subject: Re: CGI
>>
>
script it throws me an error like
>
> Can't find string terminator "HI" anywhere before EOF at ./test1 line
> 5.
I think the HI has to aligned to the left, eg,
print <
Welcome to CGI scripting
HI
try that
--
Owen
--
To unsubscribe, e-mail: begin
ldoc.perl.org/functions/times.html
For millisecond resolution see DateTime::HiRes (Create DateTime
objects with sub-second current time resolution)
http://search.cpan.org/~jhoblitt/DateTime-HiRes-0.01/lib/DateTime/HiRes.pod
--
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
t;;
> system("sleep 60");
> }
> exit 0;
What would the errors be?
I see you are using strict, what is the output of
# perl -c
Does that give you any clues?
Maybe just for testing, you want to try a sleep of 1 or 2 seconds?
what happens if the values are in sync?
uot; \" \'{print \$2}\' | cut -b 1-9 ");
>
> The value returned by $test2 is 0. I suspect grep and awk commands are
> not
> getting executed.
> Is there any thing wrong in the syntax ????
You will probably need to specify the full path of grep and awk.
(usr/b
>
>
>
> -Original Message-----
> From: Owen [mailto:rc...@pcug.org.au]
> Sent: Wednesday, April 15, 2009 3:16 PM
> To: Gowri Chandra Sekhar Barla, TLS, Chennai
> Subject: RE: Reg:Regular expression
>
>>
>>
>>
>> -Original Message---
>
> Hi owen,
>
> Please help me in resolving errors in the following script
>
> open(INPUT," open(OUTPUT,">new.txt");
> $temp = \/user\/gowri\/remote2;
> while ( ) {
> $_ =~ s{\\/user\\/cce\\/g_tool}{$temp};
> print OUTPUT $_;
> }
Well, I c
syntax error at example1.pl line 5, near "$str =~ s{\\/user"
>
> Unmatched right curly bracket at example1.pl line 5, at end of line
>
> Execution of example1.pl aborted due to compilation errors.
Looking at your numbered script above, I cannot find $str nor /iprcc
> On Sun, Mar 22, 2009 at 8:56 PM, Owen wrote:
>>> Hello
>>>
>>> I repeatedly run into problems when installing modules and I havent
>>> yet figured out a way to consistently resolve them.
>>>
>>> I want to install Audio::File b
rbis::Header::PurePerl: Didn't find an ogg header - invalid
> file?
>
> # Failed test 'Audio::File::Ogg::AudioProperties::length()'
My guess is that you are missing a header file.
If you are using a distribution based system, look for something like
libogg-dev or/and libvorbis-d
for any help
Hi,
You might want to also ask on the perl-dbi users mailing list, or in the
perl.dbi.users news group
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
at it's doing.
you can define matching criteria by using / ... / or | ... | or % ...
% and probably a couple of others.
In this case % has been used
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
use strict;
my $program = "";
my $status = `/bin/ps cat | /bin/grep $program`;
if ( length($status) > 0 ) {
sleep 30;
}
else { exec "the_process" }# start program
owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
e and
install it and give it permissions
My guess is that for Windows, you need only take the .pl file and run
it like any other perl script
See the README for details
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
> }
>
> }
>
> } #End of sub
>
> &NewProducts();
>
I am not sure what you expected, but here is a rewrite which you could
look at and see how it works.
Owen
===
t back if it is there, then exits
The whole process is initiated by a cron job, including the generation
of the file in the first place.
HTH
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ys %files) {
> print "$jot $files{$jot}\n";
> }
>
> for my $now (keys %files) {
>$max = $now if $now > $max;
> }
>
>
> print "<$max>\n";
>
What happens if you put this at the top of your program
use strict;
use warnings;
use diagnostics;
?
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
ght get the idea.
uninitialized errors, I guess, are mainly caused by passing an undefined
value. You have to work back from the error line to then determine why
the value is unititialized.
Owen
use strict;
use warnings;
use diagnostics; # provides a more verbose explanation of errors
use
to the first line
then run perl -c
What is the result?
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
>
> #perl -c
>
> Hi Owen,
>
> My code is as follows :
>
> use strict;
> use warnings;
> use Time::Local;
>
> $days1 = epoch_days('30-Jan-09');
> $days2 = epoch_days('16-Feb-09');
>
> $day = $days1 - $days2;
>
> print "Difference: @{[$days1
ove errors ?
Yes
Because you are not passing the integers required by your module
Time::Local
You are doing something wrong with your parsing or date extraction.
Do you have a sample code snippet reproduces those errors and that you
can post here ?
Owen
--
To unsubscribe, e-mail: be
);
>
> Can You help me to write the result of 'pwd' in $x?
Where is 'pwd'?
You will find it in /usr/bin probably, just look
Then do your system("/usr/bin")
Generally though you might prefer to specify those commands earlier, eg,
my $pwd = '/bin/pwd&#x
>
> Get the same error, when the date is set to
>
> my $days1 = epoch_days('30-Jan-09');
> my $days2 = epoch_days('14-Feb-2009');
>
> Day '30' out of range 1..28 at ./date2.pl line 35
>
> -Rajini
>
>
>
>
>
>
>>
hpcll402:/home/raji/perl>./date2.pl
> Day '30' out of range 1..28 at ./date2.pl line 35
>
Feb 2009 has 29 fays?
Owen
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
1 - 100 of 323 matches
Mail list logo
