On 9/2/07, Chris E. Rempola <[EMAIL PROTECTED]> wrote:
> Chas Owens wrote:
> >
> > The pattern /#.*\s(\S+)/ matches a literal # followed by anything up
> > to a space and captures all contiguous non-space characters:
> >
> > "31 Aug 2007 04:00:22 GMT " prematch
> > "#" matches #
> > "8810118 3375
Chas Owens wrote:
The pattern /#.*\s(\S+)/ matches a literal # followed by anything up
to a space and captures all contiguous non-space characters:
"31 Aug 2007 04:00:22 GMT " prematch
"#" matches #
"8810118 337545 <[EMAIL PROTECTED]>" matches .*
" " matches \s
"bouncing" matches \S+
Even
On 9/1/07, Chris E. Rempola <[EMAIL PROTECTED]> wrote:
snip
> Can you explain the regex syntax of /#.*\s(\S+)/
>
> How does that match the email address? The reason why I ask is because
> I have one occurrence with the ouput of:
>
> OUTPUT +
> 'bouncing' sent 402 emails.
> /OUTPU
On 9/1/07, Rafael Morales <[EMAIL PROTECTED]> wrote:
> Hi list,
>
> This my situation I love Perl, and I need to create a GUI program for a
> school, but this is my
> problem:
> - In the school all machines are under Windows (different versions). -
> So I don`t know what to do, I must to code the
Rightly said by Gunnar. To see all the values stored in @array add:
foreach (@array)
{
print "$_\n";
}
On 9/2/07, Gunnar Hjalmarsson <[EMAIL PROTECTED]> wrote:
>
> Rodrigo Tavares wrote:
> > Hello,
> >
> > I have a problem with a counter.
> >
> > #!/usr/bin/perl
> >
> > use strict;
> > use warn
John W. Krahn wrote:
my ( $key, %data );
while ( <> ) {
if ( /#.*\s(\S+)/ ) {
$key = $1;
}
elsif ( /\sremote\s/ ) {
$data{ $key }++;
}
}
for my $key ( keys %data ) {
print "'$key' sent $data{$key} emails.\n";
}
John - Thanks so much! Exactl
Rodrigo Tavares wrote:
Hello,
I have a problem with a counter.
#!/usr/bin/perl
use strict;
use warnings;
print "Write a number:";
my $number= ;
my @array;
my $div = $number * 2 ;
my $i=0;
while ($div > 0)
{
$div = $div / 2;
$array[$i]=$div;
$i++;
}
print "Value i is: $i\n";
pr
Hello,
I have a problem with a counter.
#!/usr/bin/perl
use strict;
use warnings;
print "Write a number:";
my $number= ;
my @array;
my $div = $number * 2 ;
my $i=0;
while ($div > 0)
{
$div = $div / 2;
$array[$i]=$div;
$i++;
}
print "Value i is: $i\n";
print "$array[0]\n";
prin
You can create a program using Win32::GUI then create a Windows executable
with Active State perlapp, or with PAR, and it won't be necessary to have
perl installed on the target machine.
WXPerl has some advantages, but Win32::GUI has a cleaner syntax, it creates
interfaces which are better acc
On Sun, 2007-09-02 at 00:53 +0800, Rafael Morales wrote:
> Hi list,
>
> This my situation I love Perl, and I need to create a GUI program for a
> school, but this is my problem:
> - In the school all machines are under Windows (different versions). -
> So I don`t know what to do, I must to code
Go to www.activestate.com and download Active Perl, then install Win32::GUI
with PPM. It has a very clear interface for creating programs with Windows
GUIs.
Octavian
- Original Message -
From: "Rafael Morales" <[EMAIL PROTECTED]>
To:
Sent: Saturday, September 01, 2007 7:53 PM
Subjec
Tim Bowden wrote:
I'm writing a small cgi app that takes an uploaded file, stores it on
disk and does some operations to it. To avoid multiple instances
clobbering each other, I think I need to find a unique key to use in
creating a dir specifically for use by that instance. Can anyone point
me
Rafael Morales wrote:
This my situation I love Perl, and I need to create a GUI program for
a school, but this is my problem: - In the school all machines are
under Windows (different versions). - So I don`t know what to do, I
must to code the program with Perl or i will have to use other
lan
the biggest consideration will be that every machine that runs your
program will have to have Perl (Activestate Perl for windows)
installed on that machine since it will (presumably) be an interpreted
script rather than a compiled, stand-alone program. you will also
need tcl-tk or whatever gui-cap
unclescrooge wrote:
On Sep 1, 8:29 am, [EMAIL PROTECTED] (Dr.Ruud) wrote:
unclescrooge schreef:
#!/usr/bin/perl
Missing:
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
require "subparseform.lib";
What is that?
&Parse_Form;
Don't put a & in front of a sub-call, unles
On Sep 1, 8:29 am, [EMAIL PROTECTED] (Dr.Ruud) wrote:
> unclescrooge schreef:
>
> > #!/usr/bin/perl
>
> Missing:
>
> use strict;
> use warnings;
>
> > use CGI::Carp qw(fatalsToBrowser);
>
> > require "subparseform.lib";
>
> What is that?
>
> > &Parse_Form;
>
> Don't put a & in front of a sub-ca
On Sep 1, 8:29 am, [EMAIL PROTECTED] (Dr.Ruud) wrote:
> unclescrooge schreef:
>
> > #!/usr/bin/perl
>
> Missing:
>
> use strict;
> use warnings;
>
> > use CGI::Carp qw(fatalsToBrowser);
>
> > require "subparseform.lib";
>
> What is that?
>
> > &Parse_Form;
>
> Don't put a & in front of a sub-ca
On Aug 29, 7:22 pm, [EMAIL PROTECTED] (Tom Phoenix) wrote:
> On 8/28/07, Kermit Tensmeyer <[EMAIL PROTECTED]> wrote:
>
> > I can see
> > from the error that the required library did not get loaded.
>
> What did you do to try to load it?
>
> > How does it know where the library is located?
>
> I th
Hi list,
This my situation I love Perl, and I need to create a GUI program for a school,
but this is my problem:
- In the school all machines are under Windows (different versions). -
So I don`t know what to do, I must to code the program with Perl or i will have
to use other language.
Please
On 9/1/07, Tim Bowden <[EMAIL PROTECTED]> wrote:
> I'm writing a small cgi app that takes an uploaded file, stores it on
> disk and does some operations to it. To avoid multiple instances
> clobbering each other, I think I need to find a unique key to use in
> creating a dir specifically for use
Generally I use process id + timestamp to create the unique key.like,
$uniq_key = $$ . time();
- original Nachricht
Betreff: cgi app runtime unique identifier.
Gesendet: Sa 01 Sep 2007 17:22:00 CEST
Von: "Tim Bowden"<[EMAIL PROTECTED]>
> I'm writing a small cgi app that takes an upl
I'm writing a small cgi app that takes an uploaded file, stores it on
disk and does some operations to it. To avoid multiple instances
clobbering each other, I think I need to find a unique key to use in
creating a dir specifically for use by that instance. Can anyone point
me in the right direct
Peter Scott wrote:
On Fri, 31 Aug 2007 15:08:01 -0400, Hunter Barrington wrote:
is there a type() function in perl? i need to be able to test the
contents of an array and
if (type($value)=='string' or type($value)=='int') {print "i win";}
thats basically what i need to be able to do. if it
On Fri, 31 Aug 2007 15:08:01 -0400, Hunter Barrington wrote:
> is there a type() function in perl? i need to be able to test the
> contents of an array and
> if (type($value)=='string' or type($value)=='int') {print "i win";}
>
> thats basically what i need to be able to do. if it helps i know ah
On Thu, 30 Aug 2007 10:57:20 -0300, Adriano Ferreira wrote:
> On 8/30/07, Peter Scott <[EMAIL PROTECTED]> wrote:
>> Why are you using a BEGIN block? Why not just make it the first
>> executable statement? Do you have any other 'use' statements in the
>> program?
>
> Because otherwise it would be
On Thu, 30 Aug 2007 17:25:28 +0100, Beginner wrote:
> On 30 Aug 2007 at 10:07, Mumia W. wrote:
>
>> On 08/30/2007 09:37 AM, Beginner wrote:
>> > q2) Will our $logfile now be a shared variable across all my modules?
>> Try it and see.
>
> No. It's not.
Yes. It is. It was declared (three posts
Oh, i am very sorry for my mistakes. Actually i write email from my
mobile, and somehow that backslash vanished. I just checked now from a
PC and its working now. Thanks. And i also commented that line
sub rm();
thanks everybody!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
Rob Dixon wrote:
Remarkably easy even for me!
http://gerport.com/celebQuiz/
The only ones I didn't get were the people I'd never heard of - bout 40%
of em!
Sorry guys - wrong address :$
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
htt
Remarkably easy even for me!
http://gerport.com/celebQuiz/
The only ones I didn't get were the people I'd never heard of - bout 40% of em!
Rob x
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
unclescrooge schreef:
> #!/usr/bin/perl
Missing:
use strict;
use warnings;
> use CGI::Carp qw(fatalsToBrowser);
>
> require "subparseform.lib";
What is that?
> &Parse_Form;
Don't put a & in front of a sub-call, unless you know why.
If you meant Parse_Form(@_), then write it like that.
Digger schreef:
> I need to convert the string to utf8 at first then
> print it to $fh?
Read perlunitut:
http://search.cpan.org/perldoc?perlunitut
http://juerd.nl/perlunitut.html
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional com
Ron Bergin wrote:
On Aug 28, 10:10 pm, [EMAIL PROTECTED] (Omega -1911) wrote:
Ha! Here is a snippet that I use on a windows machine. It works!!!
use File::Find;
sub rm();
$count = 0;
@directories = ("F://Hindi/RHTDM");
find(\&rm, @directories);
sub rm() {
$count++;
my ($filename) = $_;
if ($f
There's maybe something wrong with the lib and its routines you imported.
Try adding 'use strict' and 'use warnings' at the begin of script and run it to
see what's happened.
- original Nachricht
Betreff: i need a second set of eyes
Gesendet: Sa 01 Sep 2007 11:54:53 CEST
Von: "uncle
hi,
if anyone has the time or the patience, could someone please tell me
what's wrong with this script?
it's simple..it's supposed to open a file and print the contents (i'm
learning slowly but surely)...anyhow...i keep getting 500 errors and
the server log says that there's a premature end to th
On Aug 28, 10:10 pm, [EMAIL PROTECTED] (Omega -1911) wrote:
> Ha! Here is a snippet that I use on a windows machine. It works!!!
>
> use File::Find;
>
> sub rm();
> $count = 0;
> @directories = ("F://Hindi/RHTDM");
> find(\&rm, @directories);
>
> sub rm() {
> $count++;
> my ($filename) = $_;
> if (
On Aug 28, 10:10 pm, [EMAIL PROTECTED] (Omega -1911) wrote:
> Ha! Here is a snippet that I use on a windows machine. It works!!!
>
> use File::Find;
>
> sub rm();
> $count = 0;
> @directories = ("F://Hindi/RHTDM");
> find(\&rm, @directories);
>
> sub rm() {
> $count++;
> my ($filename) = $_;
> if (
36 matches
Mail list logo
