Like:

perl -e "print "Hello World!n";"

alfred,

renard wrote:

----- Original Message -----
From: "renard" <[Email Removed]>
To: "Perl Beginners List" <[Email Removed]>
Sent: Friday, March 11, 2005 9:23 AM
Subject: Executing perl code on the command line

FlashMX wrote:

John W. Krahn wrote:

On Fri, 11 Mar 2005 07:53:30 -0800, John W. Krahn wrote:

FlashMX wrote:

On Fri, 11 Mar 2005 10:57:19 -0500, FlashMX wrote:

Why does this syntax not work? The $1 does not come out.

if (/([0-9.]{6}) set/) {
s/$1 set/n-50.2 v n$1 set/;

Stone wrote:

Thank you. your methods work fine.

I do wonder ... I have seen and tried command line perl code examples from
this mailing list that did not have quotes for print statements.

On my computer they did not work.. Is this specific to Windows XP and
ActivePerl? Or was it untested code?

PS: using single quote around the perl code fails...need to use double
quotes.

----- Original Message -----
From: "Bakken, Luke" <[Email Removed]>
To: "renard" <[Email Removed]>; "Perl Beginners List" <[Email Removed]>
Sent: Friday, March 11, 2005 10:52 AM
Subject: RE: Executing perl code on the command line

Hi !!!

For me the line work here:

C:>perl -e "print qq(Hellon)"
Hello

C:>perl -e"print qq(Hellon)"
Hello

Can it be that you type it wrong?
Or check your perl version

C:>perl -v




-----Original Message-----
From: renard [mailto:[Email Removed]]
Sent: Saturday, March 12, 2005 9:24 AM
To: Perl Beginners List
Cc: Bakken, Luke; perlmails@thinbrowser
Subject: Re: Executing perl code on the command line

Thank you. your methods work fine.

I do wonder ... I have seen and tried command line perl code examples from
this mailing list that did not have quotes for print statements.

On my computer they did not work.. Is this specific to Windows XP and
ActivePerl? Or was it untested code?

PS: using single quote around the perl code fails...need to use double
quotes.

----- Original Message -----
From: "Bakken, Luke" <[Email Removed]>
To: "renard" <[Email Removed]>; "Perl Beginners List" <[Email Removed]>
Sent: Friday, March 11, 2005 10:52 AM
Subject: RE: Executing perl code on the command line

Jonathan Paton schreef:

Hi,

perl -e "print qq(Hellon)" works fine for me.

What does not work is : perl -e 'print qq(Hellon)'


----- Original Message -----
From: "Gomez, Juan" <[Email Removed]>
To: "renard" <[Email Removed]>; "Perl Beginners List" <[Email Removed]>
Cc: "Bakken, Luke" <[Email Removed]>;
<[Email Removed]>
Sent: Saturday, March 12, 2005 10:40 AM
Subject: RE: Executing perl code on the command line

Single quotations?
Those are for Unix/Linux perl only

For windows we have to stick to double qoutation marks
--well that's what I remmeber from quigley's book (Perl by example)

:o)

-----Original Message-----
From: renard [mailto:[Email Removed]]
Sent: Saturday, March 12, 2005 2:15 PM
To: Perl Beginners List
Cc: Gomez, Juan
Subject: Re: Executing perl code on the command line

Hi,

perl -e "print qq(Hellon)" works fine for me.

What does not work is : perl -e 'print qq(Hellon)'


----- Original Message -----
From: "Gomez, Juan" <[Email Removed]>
To: "renard" <[Email Removed]>; "Perl Beginners List" <[Email Removed]>
Cc: "Bakken, Luke" <[Email Removed]>;
<[Email Removed]>
Sent: Saturday, March 12, 2005 10:40 AM
Subject: RE: Executing perl code on the command line

Gomez, Juan schreef:

This was not a home work. In a real script I need to change the last
element of the array. Not changing the array it self.

I work with Perl for more than 4 years now. And after 4 years, I need this.

Thanks
MArcos


On Thu, 10 Mar 2005 09:06:52 -0600, Larsen, Errin M HMMA/IT
<[Email Removed]> wrote:

On Mar 14, Peter Rabbitson said:

On Mar 15, Peter Rabbitson said:

On Wed, 16 Mar 2005, Paul Ohashi wrote:

On Tue, 22 Mar 2005, Atul Vohra wrote:

David Jacopille <[Email Removed]> wrote:
[...]

On 26 Mar, Brett Williams wrote:

On 29 Mar 2005 10:19:09 -0800, Randal L. Schwartz wrote:

On Thu, 31 Mar 2005, Ankur Gupta wrote:

Thanks Offer! It's working!

Wim




-----Original Message-----
From: Offer Kaye [mailto:[Email Removed]]
Sent: 31 March 2005 02:55 PM
To: Perl Beginners
Subject: Re: Question: Array of Hashes


On Thu, 31 Mar 2005 14:40:47 +0200, Olivier, Wim W wrote:

[Email Removed] wrote:

John <[Email Removed]> said:

Nicolay Vasiliev wrote:

Michael Gale wrote:

Harold Castro <[Email Removed]> wrote:

Subject: datetime comparisons

hello all

i am wondering a there is a module that do comparisons
between two different datetime stamps

for example

2/4/2005:15:20:20 and 4/4/2005:12:09:23

which date is bigger (namely earliest)



You may wish to look at "Time::Local". This will convert the strings to
seconds then they can be compared...

Hope this gives you some ideas...

jwm

On Wed, 6 Apr 2005, Debbie Cooper wrote:

On Wed, 6 Apr 2005, John W. Krahn wrote:

Debbie Cooper wrote:

John W. Krahn wrote:

I have a function which prints array:

sub print_array {
my $array_ref = shift;
for(@$array_ref){
print "$_n";
}
}

And I have a big array, for example named @array.
I want to print @array elements from N to N+100 using this function, but
don't want to use second array (they are can be very big). After print I
don't need @array anymore.

I do this:
$#array = $N+100;
print_array($array[$N]);

But I got error: [Not an ARRAY reference at ... ]
Is ARRAY reference in perl not the reference to the first element of ARRAY ?
Or is the better way to solve this problem?


Please note that $array[$N] is a scalar...
Also you are expecting an array reference in your sub but not calling with a
reference...

Here is another way...

perl -e '@a=(1 .. 500); $from=0; $cnt= 5;&print_array(@a,$from, $from +
$cnt);sub print_array{ ($list,$from, $to)=@_; print $$list[$from - 1], "n"
while (++$from <= $to) ;}'

Hi Jose,
Thanks for your suggetion. I already tried this erlier
and once again.

It does not work. I tried following example. Any other
suggestions.
------------------
#include <stdio.h>
int main()
{
printf"Returning 100n";
return 100;
}
------------------
$gcc ret_100.c

-------------------------
#!/usr/bin/perl -w
my $ret_val = `./a.out`;
print "AC::", $ret_val, "n";
--------------------------

Thanks and regards
Ambikesh

--- Jose Nyimi <[Email Removed]> wrote:

Greetings,

Thanks for the help so far,

I am added switch... but not sure that I have syntax correct....
Maybe this is best written as if else logic....

and or:
my $action = $q->param( "action" );

SWITCH ($action) {

if (/Upload/) {
last SWITCH;
};

etc.......



--- what I have now----
use CGI qw/:standard/;
use CGI;
use Fcntl qw( :DEFAULT :flock );
use CGI::Carp qw(fatalsToBrowser);
use strict;
use switch;


my $action = $q->param( "action" );

SWITCH: {

if ($action =~ /Upload/) {
last SWITCH;
};

if ($action =~ /Update/) {
print redirect("./import_clean_csv.php");
exit;
last SWITCH;
};

if ($action =~ /Clean/) {
my @filesToRemove;

chdir UPLOAD_DIR or die "Couldn't chdir to afm_data directory: $!";

#my @filesToRemove = map {$_ =~ /^(w[w.-]*)/} <*>;

opendir(DR,"./");
@filesToRemove = grep {$_ =~ /^(w[w.-]*)/} readdir DR;
closedir DR;


print $HTML_HEADER;
print '<div align="center">';


foreach my $fr (@filesToRemove) {

print "Deleted $fr<br>n";
unlink($fr) or die "Couldn't Delete $fr $!";
}



print <<HTML_OUT;
<p class="top-header">Your Done close this window!
<form><input type="button" onclick="self.close()" value="Close Window"></form></p>
</div>
HTML_OUT
print end_html;

exit;
last SWITCH;
};

}

Dear Perl Gurus,

I have some problems that I think are a result of how my Switch statement is written.
This script is invoked via a web browser to upload a file, and do a few other things.
However it appears that the user system / network, or my script is stalling. So
the user clicks the button a second and a third time before the script has
finished. The system admin has made me aware that this script is maxing out the
CPU usage of server. He is not happy....


I thought have surrounding a portion of the code and putting in an if
block ...

if (!$state) {

do lots of stuff related to file upload...
}

$state could be read and written to and store a 0 for ready to do something,
or a 1 for, 'busy now, don't brother me'......


Another issue to improve the performance of the script
was to move stuff inside a switch block, but I am not sure how this would
impact scope :

SWITCH: {

if ($action =~ /Upload/) {


use Fcntl qw( :DEFAULT :flock );
use constant MAX_FILE_SIZE => 2 * 1_048_576; # Limit each upload to 2 MB
use constant MAX_DIR_SIZE => 10 * 1_048_576; # Limit total uploads to 10 MB
use constant MAX_OPEN_TRIES => 100;
last SWITCH;
};

--

if ($action =~ /AnotherCmd/) {
### is order backwards on these next two lines?
exit;
last SWITCH;
}


Could some comment on using Switch or Case statements vers If {} else blocks

Thanks...
Dave Gilden
PS: I am not sure of syntax that I should be using for Switch I have seen several variants
as I have read documentation today....


--- what I have now----

use CGI qw/:standard/;
use CGI;
use Fcntl qw( :DEFAULT :flock );
use CGI::Carp qw(fatalsToBrowser);
use strict;
use switch;


my $action = $q->param( "action" );

SWITCH: {

if ($action =~ /Upload/) {
last SWITCH;
};

if ($action =~ /Update/) {
print redirect("./import_clean_csv.php");
exit;
last SWITCH;

};


if ($action =~ /Clean/) {
my @filesToRemove;

chdir UPLOAD_DIR or die "Couldn't chdir to _data directory: $!";

opendir(DR,"./");
@filesToRemove = grep {$_ =~ /^(w[w.-]*)/} readdir DR;
closedir DR;


print $HTML_HEADER;
print '<div align="center">';


foreach my $fr (@filesToRemove) {

print "Deleted $fr<br>n";
unlink($fr) or die "Couldn't Delete $fr $!";
}



print <<HTML_OUT;
<p class="top-header">Your Done close this window!
<form><input type="button" onclick="self.close()" value="Close Window"></form></p>
</div>
HTML_OUT
print end_html;

exit;
last SWITCH;
};
}


#more....

__END__

On 4/14/05, David Gilden wrote: