Tony Heal wrote:
I want to run a cgi script from another server inside a local cgi page
A quick and dirty example:
#!/usr/bin/perl -T
use strict;
use warnings;
use LWP::Simple;
my ($content, $style) = getpage();
print <
$style
$content
HTML
sub getpage {
my $domain = 'http://pace202
Hello yitzle,
Wednesday, August 22, 2007, 7:51:22 AM, you wrote:
> Explained here:
> http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators-operator%2c-regexp
> On 8/22/07, Alexandru Maximciuc <[EMAIL PROTECTED]> wrote:
>> Hello,
>>
>> could someone please explain me these results:
>>
>
Hello Chris,
Wednesday, August 22, 2007, 7:44:02 AM, you wrote:
> I am working a script that is a solution to a problem in Intermediate
> Perl. Here is the script:
> #!/usr/bin/perl -w
> use strict;
> sub check_items_for_all {
> my $all_ref = @_;
here is the first err: you should have
Explained here:
http://perldoc.perl.org/perlop.html#Regexp-Quote-Like-Operators-operator%2c-regexp
On 8/22/07, Alexandru Maximciuc <[EMAIL PROTECTED]> wrote:
> Hello,
>
> could someone please explain me these results:
>
>
> use strict;
> use warnings;
>
> my $re = qr!a!;
>
> $
On 8/22/07, Chris <[EMAIL PROTECTED]> wrote:
> I am working a script that is a solution to a problem in Intermediate
> Perl. Here is the script:
>
> #!/usr/bin/perl -w
> use strict;
>
> sub check_items_for_all {
> my $all_ref = @_;
> my @who = keys %$all_ref;
>
> my @requir
I am working a script that is a solution to a problem in Intermediate
Perl. Here is the script:
#!/usr/bin/perl -w
use strict;
sub check_items_for_all {
my $all_ref = @_;
my @who = keys %$all_ref;
my @required = qw(preserver sunscreen water_bottle jacket);
my @m
Hello,
could someone please explain me these results:
use strict;
use warnings;
my $re = qr!a!;
$_ = join '', ;
print "1) ".scalar($_ =~ /$re/g)."\n";
my @a = $_ =~ /$re/g;
print "1) ".scalar(@a)."\n";
__DATA__
jaskdgbanio ehioa sdoija oihfcasoi dnfmalmods gnijashdugoiahi
-Original Message-
>From: Tony Heal <[EMAIL PROTECTED]>
>Sent: Aug 22, 2007 11:37 AM
>To: beginners@perl.org
>Subject: CGI Help
>
>I want to run a cgi script from another server inside a local cgi page
>
>SSI will only do local files, not remote URLs.
>
>
>
>How can I do this?
>
>
>
Ho
I want to run a cgi script from another server inside a local cgi page
SSI will only do local files, not remote URLs.
How can I do this?
Tony Heal
Pace Systems Group, Inc.
800-624-5999
[EMAIL PROTECTED]
neo80123 wrote:
Hi,
Hello,
can anyone help me out?
Maybe, it depends on how well you describe your problem.
Code:
You should start your code with the two pragmas:
use warnings;
use strict;
foreach(@unsort)
{
( $Sip, $Spo, $Dip, $Dpo, $Prot, $Dir ) = split( ',' );
You are extra
-Original Message-
>From: neo80123 <[EMAIL PROTECTED]>
>Sent: Aug 21, 2007 10:01 PM
>The input is sth like that "51,34,55,45.0" or "34,45,123,55,0". I want
>to find out how often Number 55 exists. No matter on what position the
>55 is.
>
Hello,
Use a hash to count the numbers.Like,
$
Hi,
can anyone help me out?
Code:
foreach(@unsort)
{
( $Sip, $Spo, $Dip, $Dpo, $Prot, $Dir ) = split( ',' );
foreach(@unsort)
{
if (index($_,$Sip)>-1 and $Dir==0)
{
$unsort[0] =~ s/$Sip//;
$coun
Hello,
I'm trying to embed djabberd (perl5 net-im) onto a m0n0wall base
(FreeBSD). I found scandeps, and ran it on DJAbberd and found some
useful information about the modules it relies upon.
Is there any way to find out which files it relies upon?
Thanks, please let me know what other informati
Robert Hicks wrote:
Cees posted this on Perlmonks and it "works" but I get [undef] for
filename and line.
sub get_logger {
my $class = shift;
my $module_name = shift;
unless( Log::Log4perl->initialized ) {
# watch the config file for changes (in seconds)
Log::L
stonehenge is the best.
-Original Message-
>From: John Arbes <[EMAIL PROTECTED]>
>Sent: Aug 21, 2007 4:02 PM
>To: beginners@perl.org
>Subject: Perl Courses
>
>Does anyone have any recommendations on Perl Courses either online or
>offline. I'm located in New York but, if a course is good
Does anyone have any recommendations on Perl Courses either online or
offline. I'm located in New York but, if a course is good enough, am
willing to get away. I'm looking for both beginner and advanced
recommendations.
Also, please let me know if you have any opinions about HOTT's course:
http
Cees posted this on Perlmonks and it "works" but I get [undef] for
filename and line.
sub get_logger {
my $class = shift;
my $module_name = shift;
unless( Log::Log4perl->initialized ) {
# watch the config file for changes (in seconds)
Log::Log4perl->init_and_wat
Jeff Pang schreef:
> Christopher Spears:
>> print "Enter regular expression: ";
>> chomp(my $regexp = );
>
> $regexp = quotemeta($regexp);
Since it specifically asks for a regular expression, I would definitely
not do quotemeta().
>> #print $regexp;
Make that
print qr/$regexp/;
--
Affijn,
On Aug 21, 1:13 pm, [EMAIL PROTECTED] (Chas Owens) wrote:
> On 8/21/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> > I am trying to take Multi Line Input in PERL.
> > But unable to do that, pls let me know, how can i do that?
>
> > for eg;
> > I wanna take 3-4 strings from users, after every s
On 8/21/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> I am trying to take Multi Line Input in PERL.
> But unable to do that, pls let me know, how can i do that?
Can you do single-line input in Perl? That would be a start.
print "What's your name? ";
chomp(my $name = );
print "Hello, $
On 8/21/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> Hi,
> I am trying to take Multi Line Input in PERL.
> But unable to do that, pls let me know, how can i do that?
>
> for eg;
> I wanna take 3-4 strings from users, after every string user will
> press"enter"and the next typed letters will g
Hi,
I am trying to take Multi Line Input in PERL.
But unable to do that, pls let me know, how can i do that?
for eg;
I wanna take 3-4 strings from users, after every string user will
press"enter"and the next typed letters will go into some other
string..
basically, i wanna take many strings from
Tony Heal am Dienstag, 21. August 2007:
> > -Original Message-
> > From: Chas Owens [mailto:[EMAIL PROTECTED]
> > Sent: Tuesday, August 21, 2007 9:50 AM
> > To: [EMAIL PROTECTED]
> > Cc: beginners@perl.org
> > Subject: Re: regex help
> >
> > On 8/21/07, Tony Heal <[EMAIL PROTECTED]> wrote:
On 8/21/07, Tony Heal <[EMAIL PROTECTED]> wrote:
> OK I added this and I keep getting invalid format
>
> foreach (@newValues){print "$_\n";}
> my @versions;
> while (@newValues)
> {
> chomp;
> die "invalid format" unless
> my (
Hey,
Has anyone had any luck with NTLM auth with LWP ?
It appears to repeat the following:
--snip--
LWP::UserAgent::new: ()
--Performing request
LWP::UserAgent::request: ()
LWP::UserAgent::send_request: GET http://employee.pason.com
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol
OK I added this and I keep getting invalid format
foreach (@newValues){print "$_\n";}
my @versions;
while (@newValues)
{
chomp;
die "invalid format" unless
my ($major, $minor, $build) = /(\d+)(?:-.+)?\.(\d+)-(\d+)/;
OK I added this and I keep getting invalid format
foreach (@newValues){print "$_\n";}
my @versions;
while (@newValues)
{
chomp;
die "invalid format" unless
my ($major, $minor, $build) = /(\d+)(?:-.+)?\.(\d+)-(\d+)/;
On 8/21/07, Jeff Pang <[EMAIL PROTECTED]> wrote:
>
>
> -Original Message-
> >From: Chas Owens <[EMAIL PROTECTED]>
> >Sent: Aug 21, 2007 10:01 PM
> >To: Jeff Pang <[EMAIL PROTECTED]>
> >Cc: [EMAIL PROTECTED], beginners@perl.org
> >Subject: Re: regex help
> >
> >On 8/21/07, Jeff Pang <[EMAIL
-Original Message-
>From: Chas Owens <[EMAIL PROTECTED]>
>Sent: Aug 21, 2007 10:01 PM
>To: Jeff Pang <[EMAIL PROTECTED]>
>Cc: [EMAIL PROTECTED], beginners@perl.org
>Subject: Re: regex help
>
>On 8/21/07, Jeff Pang <[EMAIL PROTECTED]> wrote:
>snip
>> my @new = map { $_->[0] } sort { $b->[1
On 8/21/07, Jeff Pang <[EMAIL PROTECTED]> wrote:
snip
> my @new = map { $_->[0] } sort { $b->[1] <=> $a->[1] or $b->[2] <=>
> $a->[2] or $b->[3] <=> $a->[3] } map { [ $_, split/\D+/ ] } @arr;
snip
While splitting on non-number is a nifty solution, it would break if
the custom tag can contain a num
-Original Message-
>From: Tony Heal <[EMAIL PROTECTED]>
>Sent: Aug 21, 2007 9:25 PM
>To: [EMAIL PROTECTED], beginners@perl.org
>Subject: RE: regex help
>
>Here is a sample of the versions that I am using.
>16.1-17
>16.1-22
>16.1-23
>16.1-39
>16.3-1
>16.3-6
>16.3-7
>16.3-8
>16.3-15
>16.5-1
On 8/21/07, Tony Heal <[EMAIL PROTECTED]> wrote:
> Here is a sample of the versions that I am using.
snip
Just to clarify, you have a version string with the following format:
{major}{custom tag}.{minor}-{build}
and you want the list sorted by major, then minor, then build.
#!/usr/bin/perl
use
Chas Owens wrote:
> On 8/21/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
> snip
>> It would appear that for all but the first iteration, this is happening.
>> However, something during the first time through seems to cause the flag to
>> not
>> be what it should.
>>
>> I've tried changing where th
Here is a sample of the versions that I am using.
16.1-17
16.1-22
16.1-23
16.1-39
16.3-1
16.3-6
16.3-7
16.3-8
16.3-15
16.5-1
16.5-2
16.5-10
16.5-13
15.3-12
15.2-108
14-special.1-2
14-special.1-8
14-special.1-15
14-special.2-40
14-special.2-41
14-special.3-4
14-special.3-7
14-special.3-12
15.2-110
1
On 8/21/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
snip
> It would appear that for all but the first iteration, this is happening.
> However, something during the first time through seems to cause the flag to
> not
> be what it should.
>
> I've tried changing where the TOP is in the script, when
the list is a list of files by version. I need to keep the last 5 versions.
Jeff's code works fine except I am getting some empty strings at the beginning
that I have not figured out.
Here is what I have so far. Lines 34 and 39 are provide a print out for
troubleshooting. Once I get this fixed
Chas Owens wrote:
> On 8/20/07, Mathew Snyder <[EMAIL PROTECTED]> wrote:
>> Paul Lalli wrote:
>>> On Aug 20, 3:10 pm, [EMAIL PROTECTED] (Mathew Snyder) wrote:
I run a script which creates a small report for different users of a
system we
have here at work. The report is a simple te
Jeff Pang wrote:
-Original Message-
From: "Mr. Shawn H. Corey" <[EMAIL PROTECTED]>
Sent: Aug 21, 2007 12:32 PM
To: Jeff Pang <[EMAIL PROTECTED]>
Cc: beginners@perl.org
Subject: Re: regex help
Jeff Pang wrote:
my @new = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map {
[$_,(split/-/)
On Aug 20, 11:28 pm, [EMAIL PROTECTED] (Christopher Spears) wrote:
> I'm working on the second exercise of the second
> chapter. I'm supposed to write a program that asks
> the user to type a regular expression. The program
> then uses the regular expression to try to find a
> match in the direct
39 matches
Mail list logo
