On Aug 6, 2014, at 10:55 AM, ESChamp wrote:
> The program begins
>
> #!/usr/bin/perl
You really should add these two lines:
use strict;
use warnings;
here and correct the mistakes they reveal.
> use Tie::File;
> use File::Copy 'copy';
> use File::Spec;
>
> my $copy="00-copy.htm";
>
Cort Morgan wrote:
>
> I'm trying to (learn how to) create a mega-widget in Perl/Tk and am hacking
> some examples from "Mastering Perl/Tk". I apparently do not understand how to
> use ConfigSpecs. I'm trying to be able to pass arguments to the widget
> constructor and define default values if t
On Nov 21, 2:33 am, [EMAIL PROTECTED] (Rob Dixon) wrote:
> Francois wrote:
> > I tried to get data from a site which use cookies and redirect the
> > user, I spend a lot of time with the same result: connection timed out
> > until I realised that all was fine if I did'nt send the header...
>
> > Th
Francois wrote:
I tried to get data from a site which use cookies and redirect the
user, I spend a lot of time with the same result: connection timed out
until I realised that all was fine if I did'nt send the header...
Thanks for any explanations !!!
Francois
here is my code:
use strict;
On 11/20/07, Francois <[EMAIL PROTECTED]> wrote:
> what's wrong with my http header
You may get a faster, better answer if you ask in a forum concerning
http headers and related topics; this forum is for Perl beginners.
> I realised that all was fine if I did'nt send the header...
So, everythin
Tommy Nordgren wrote:
> What's wrong with this script for removing the CVS directories from a
> checked-out CVS workspace?
Are you asking because it is not working correctly?
> #!/usr/bin/perl
> use strict;
> use warnings;
>
> my $mypath = '/Users/emac/gcc';
>
> removecvs( $mypath);
>
> sub
rmdir will only delete empty directories. I assume these directories contain
files?
Plus I'm not sure that using system() with die works the way you are
intending. Why not use perl's rmdir (which also only deletes empty dirs). I'd
try opendir on the CVS
directory and unlink all the file
On 11/5/06, Tommy Nordgren <[EMAIL PROTECTED]> wrote:
What's wrong with this script for removing the CVS directories from a
checked-out CVS workspace?
I don't know. What do you think is wrong with it? Does it do something
wrong? Does stepping through it with the debugger give you any clues?
On 10/30/06, Octavian Rasnita <[EMAIL PROTECTED]> wrote:
I am trying to read a UTF-8 coded file, decode its html character entities,
and print it into another UTF-8 coded file.
The program works fine if I write the line:
$t++; last if $t > 200;
What is the largest value you can use, instead
On Thu, 15 Aug 2002, Priss wrote:
> I have amended the first few lines, this works but I
> wonder if this bad...
>
> Priss
>
> while (<>)
> {
> /(\S+)/
> and $seen_in_file1{$1} += 1;
If the line that is being read is of the form
word1 word2
$1 will only contain 'word1'.
I have amended the first few lines, this works but I
wonder if this bad...
Priss
while (<>)
{
/(\S+)/
and $seen_in_file1{$1} += 1;
push @tmp, $_;
}
open (FILE, @tmp);
while ()
--- Priss <[EMAIL PROTECTED]> wrote: > > > #
compares lines in 2 files, shows
> > # compares lines in 2 files, shows set difference
> >
> > # call as: myprog file1 file2
> >
> > while (<>)
> > {
> > /(\S+)/ and $seen_in_file1{$1} = +1;
>
> Did you mean $seen_in_file1{$1} += 1;
>
> When you give the diamond operator it tries to open
> all you command
> line args a
> >Fields are all unique.
>
> Fields are not all unique.
>
>Chocolate
>Vanilla
>Strawberry
I'm sorry Jeff, I meant that in this case, with this script and set of web
pages, the fields are all unique.
For real new beginners, note also another relatively common way that field
names can
--- Jan Gruber <[EMAIL PROTECTED]> wrote:
> Hi !
>
> Sorry for the previous posting, im not yet completely awake ;o)
>
> > > >How can the param's be placed into a new hash?
> > >
> > > CGI.pm has a Vars() method, I believe, which returns a hash.
> > >
> > > use CGI;
> > > my $q = CGI->new;
On Jan 31, Gary Hawkins said:
>> >> for $field (param()) {
>> >> print "$field => ", param($field), "\n";
>> >> }
>> >
>> >How can the param's be placed into a new hash?
>>
>> CGI.pm has a Vars() method, I believe, which returns a hash.
>>
>> use CGI;
>> my $q = CGI->new;
>> $data =
Hi, Gary !
On Thursday 31 January 2002 12:16 pm, you wrote:
> Thanks, I tried and didn't understand it.
Dit it work at all ?
> > I think %data = $q->vars would be better to read and I'm not sure if the
> > Vars() function returns a reference or a hash.
Ok, i'll try
A hash is a data comfort
Hi !
Sorry for the previous posting, im not yet completely awake ;o)
> > >How can the param's be placed into a new hash?
> >
> > CGI.pm has a Vars() method, I believe, which returns a hash.
> >
> > use CGI;
> > my $q = CGI->new;
> > $data = $q->Vars;
> >
> > print $data->{field}; # etc
On Thursday 31 January 2002 11:45 am, you wrote:
> > >> If you want to loop over all the form fields, you'd do:
> > >>
> > >> for $field (param()) {
> > >> print "$field => ", param($field), "\n";
> > >> }
> > >
> > >How can the param's be placed into a new hash?
> >
> > CGI.pm has a Vars(
> >> If you want to loop over all the form fields, you'd do:
> >>
> >> for $field (param()) {
> >> print "$field => ", param($field), "\n";
> >> }
> >
> >How can the param's be placed into a new hash?
>
> CGI.pm has a Vars() method, I believe, which returns a hash.
>
> use CGI;
> my $q
On Tue, 29 Jan 2002, Jeff 'japhy' Pinyan wrote:
> On Jan 29, Jonathan E. Paton said:
>
> >> How can the param's be placed into a new hash?
> >
> >my %hash = param();
> >
> >since param() detects whether it's in list/array/hash
> >context and does the Right Thing.
>
> These is no such thing as "ha
On Jan 29, Jonathan E. Paton said:
>> How can the param's be placed into a new hash?
>
>my %hash = param();
>
>since param() detects whether it's in list/array/hash
>context and does the Right Thing.
These is no such thing as "hash context" or "array context". There is
void context, scalar cont
> > If you want to loop over all the form fields, you'd
> > do:
> >
> > for $field (param()) {
> > print "$field => ", param($field), "\n";
> > }
> >
>
> How can the param's be placed into a new hash?
my %hash = param();
since param() detects whether it's in list/array/hash
context and
On Jan 29, Gary Hawkins said:
>> If you want to loop over all the form fields, you'd do:
>>
>> for $field (param()) {
>> print "$field => ", param($field), "\n";
>> }
>
>How can the param's be placed into a new hash?
CGI.pm has a Vars() method, I believe, which returns a hash.
use CGI
> If you want to loop over all the form fields, you'd do:
>
> for $field (param()) {
> print "$field => ", param($field), "\n";
> }
>
How can the param's be placed into a new hash?
I'm working with a script that uses a lot of $data{'each_thing'} from %data. I
tried replacing all instanc
On Jan 24, Eduardo Cancino said:
>Japhy, may i call u that way?, in this part...
Yes, the name "japhy" is fine -- I prefer its usage as my internet
persona, or whatever you'd like to call it. It's easier to remember than
my real name, at any rate.
># inicia variables.
>> >$to = "info\@domain.m
h CGI.pm can I do this a lot easier???
How could I use de CGI.pm, there is a tutorial or something I can read about
it???
I don't understand how to use de CPAN. Can you give me any pointers???
Thanks everybody...
Lalo.
- Original Message -
From: "Jeff 'japhy&#x
From: "Eduardo Cancino" <[EMAIL PROTECTED]>
> Hi everybody!
>
> The next script runs looks pefectly in IE but in Netscape it shows the
> source of the html...
A again the stupid M$IE looks like its working even though it
should scream ...
>
> # imprime html.
> print <
>
On Jan 24, Eduardo Cancino said:
>The next script runs looks pefectly in IE but in Netscape it shows the
>source of the html...
That is because IE does things that a browser should not do.
># recibe la forma.
>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>@pairs = split(/&/, $buffer);
Ugh. Y
should be:
# imprime html.
print <
YOU should use the CGI module.. (makes life very easy!)
-Original Message-
From: Eduardo Cancino [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 24, 2002 9:25 AM
To: [EMAIL PROTECTED]
Subject: What's wrong with this?
Hi everybody!
The next scri
A good mailing list to check out for Win32 Perl questions is the
perl-ntadmins list at topica.com.
-Original Message-
From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 24, 2002 8:13 AM
To: Jorge Goncalvez
Cc: [EMAIL PROTECTED]
Subject: Re:What's wrong with th
Jorge Goncalvez wrote:
>
> Hi, I have this:
> #!/usr/local/bin/perl -w
> use Win32::Registry;
> my $Register ="Software";
> #my $Register2=".DEFAULT\\Software";
> my $hkey;
> my @array= qw($HKEY_LOCAL_MACHINE $HKEY_CURRENT_USER ) ;
>
> foreach (@array)
i don't know this windows module but i gue
oops
my bad
it's the third time he posts his code and it's different each time :P
The one before was for(0..$#array)
that's why I told it was the index
Etienne
"Brett W. McCoy" wrote:
>
> On Thu, 8 Nov 2001, Etienne Marcotte wrote:
>
> > because $_ contains the index number only
> >
> > you
On Thu, 8 Nov 2001, Etienne Marcotte wrote:
> because $_ contains the index number only
>
> you need to access the element of the array!!!
>
> -label=>$_boards[$_],
> -value =>$_boards[$_],
No, actually, $_ contains the actual item from the array as used in a
foreach loop like this.
The radio b
because $_ contains the index number only
you need to access the element of the array!!!
-label=>$_boards[$_],
-value =>$_boards[$_],
Etienne
Jorge Goncalvez wrote:
>
> Hello, i have this:
>
> open (IPCONF,"< $_Globals{IPCONFIG}") or die "je ne peux ouvrir
> $_Globals{IPCONFIG} :$!";
>
icemen to kill
all cats running at large. - http://dumblaws.com/
>-Original Message-
>From: Jos I Boumans [mailto:[EMAIL PROTECTED]]
>Sent: Wed 9 May 2001 09:05
>To: Anshu Anshu; [EMAIL PROTECTED]
>Cc: [EMAIL PROTECTED]
>Subject: Re: what's wrong in systax
>
>
>
scaped for
the regex.
Regards,
Jos Bouamns
- Original Message -
From: "Anshu Anshu" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, May 08, 2001 11:36 PM
Subject: Re: what's wrong in systax
> Thanks for reply. below is
f uninitialized value in substitution (s///) at gen_job.pl line 35.
Thanks
AS
- Original Message -
From: "Jeff Pinyan" <[EMAIL PROTECTED]>
To: "Anshu Anshu" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: Tuesday, May 08, 2001 5:28 PM
Subje
On May 8, John Joseph Trammell said:
>On Tue, May 08, 2001 at 05:24:10PM -0400, Anshu Anshu wrote:
>> 22 while () {
>> 23 if (/$LOCTAG/i) {
>> 24 ($curloc) = /VALUE="([^"]+)"\s*\w*>/i;
>> 25 $location .= "${curloc}::";
>> 26 }
>> 27
>> 28
On May 8, Anshu Anshu said:
> 22 while () {
>23 if (/$LOCTAG/i) {
>24 ($curloc) = /VALUE="([^"]+)"\s*\w*>/i;
>25 $location .= "${curloc}::";
>26 }
>27
>28 if (/$TYPETAG/i) {
>29 ($curtype) = /VALUE="([^"]+)">/i;
>30
On Tue, May 08, 2001 at 05:24:10PM -0400, Anshu Anshu wrote:
> 22 while () {
> 23 if (/$LOCTAG/i) {
> 24 ($curloc) = /VALUE="([^"]+)"\s*\w*>/i;
> 25 $location .= "${curloc}::";
> 26 }
> 27
> 28 if (/$TYPETAG/i) {
> 29 ($curtyp
40 matches
Mail list logo
