#/usr/bin/perl
until ($name eq );
do {
print Enter another name, or Enter to stop:\n ;
$name = STDIN;
chomp ($name);
push @namelist,$name;
}
print @namelist
$ ./generate_namelist.pl
./generate_namelist.pl: line 6: syntax error near unexpected token
On Mon, Feb 6, 2012 at 8:35 PM, lina lina.lastn...@gmail.com wrote:
until ($name eq );
do {
print Enter another name, or Enter to stop:\n ;
$name = STDIN;
chomp ($name);
push @namelist,$name;
}
print @namelist
This should work. Also start using strict and
On Tue, Feb 7, 2012 at 12:49 PM, Parag Kalra paragka...@gmail.com wrote:
On Mon, Feb 6, 2012 at 8:35 PM, lina lina.lastn...@gmail.com wrote:
until ($name eq );
do {
print Enter another name, or Enter to stop:\n ;
$name = STDIN;
chomp ($name);
push
At 11:10 AM -0700 5/26/11, Derek wrote:
Hello, I am getting the following error:
bash: /var/www/html/bugzilla/email_in.pl: line 2: syntax error near
unexpected token `('
bash: /var/www/html/bugzilla/email_in.pl: line 2: `use Cwd
qw(abs_path);'
The contents of this file are:
#!/usr/bin/perl
Hello, I am getting the following error:
bash: /var/www/html/bugzilla/email_in.pl: line 2: syntax error near
unexpected token `('
bash: /var/www/html/bugzilla/email_in.pl: line 2: `use Cwd
qw(abs_path);'
The contents of this file are:
#!/usr/bin/perl
use Cwd qw(abs_path);
Thats all. I know
D == Derek derek...@gmail.com writes:
D Hello, I am getting the following error:
D bash: /var/www/html/bugzilla/email_in.pl: line 2: syntax error near
D unexpected token `('
big clue. what is the first word of that line? it is bash! perl is not
seeing your script for some reason. so
, Uri Guttman u...@stemsystems.com wrote:
D == Derek derek...@gmail.com writes:
D Hello, I am getting the following error:
D bash: /var/www/html/bugzilla/email_in.pl: line 2: syntax error near
D unexpected token `('
big clue. what is the first word of that line? it is bash! perl
On 2010-10-01 04:37, Jon Hermansen wrote:
sub is_valid_xml {
my ($content) = @_;
eval {
my $xs = XML::Simple-new();
my $ref = $xs-parse_string($content);
};
return 1 unless ($@);
}
Don't test the truth of $@, but use the return value of the eval.
1;}
OR
return 1 if (not $@);
the syntax error does not get printed out. I assumed that these statements
were logically equal, so, what gives?
I'm not sure. As Ruud mentioned, the return value of
the eval -- rather than $@ -- is the key. If, for instance,
you still are using a __DIE__
Hey all,
I have this block of code:
sub is_valid_xml {
my ($content) = @_;
eval {
my $xs = XML::Simple-new();
my $ref = $xs-parse_string($content);
};
return 1 unless ($@);
}
and when I pass in 'blahblahblah' as an argument, I get:
syntax error at line
: $@;
and when I pass in 'blahblahblah' as an argument, I get:
syntax error at line 1, column 0, byte 0 at /usr/lib/perl5/XML/Parser.pm
line 187
I would like to trap this syntax error, but don't know how. I've tried each
of these statements individually:
local $SIG{'__DIE__'};
local $SIG
the sub in scalar context and
check for an error:
is_valid_xml( blah) or die invalid: $@;
and when I pass in 'blahblahblah' as an argument, I get:
syntax error at line 1, column 0, byte 0 at /usr/lib/perl5/XML/Parser.pm
line 187
I would like to trap this syntax error, but don't
[EMAIL PROTECTED] == [EMAIL PROTECTED] com [EMAIL PROTECTED]
writes:
[EMAIL PROTECTED] Those three things look like sets (unordered) to me not
lists
[EMAIL PROTECTED] (ordered). The natural datatype in Perl to represent a set
of strings
[EMAIL PROTECTED] is a hash with keys but no values.
On Aug 23, 4:36 pm, [EMAIL PROTECTED] (Randal L. Schwartz) wrote:
[EMAIL PROTECTED] == [EMAIL PROTECTED] com [EMAIL PROTECTED]
writes:
[EMAIL PROTECTED] Those three things look like sets (unordered) to me not
lists
[EMAIL PROTECTED] (ordered). The natural datatype in Perl to represent a
On Aug 22, 5:44 am, [EMAIL PROTECTED] (Chris) wrote:
my @gilligan = qw(red_shirt hat lucky_socks water_bottle);
my @skipper = qw(blue_shirt hat jacket preserver sunscreen);
my @professor = qw(sunscreen water_bottle slide_rule batteries radio);
my %all = (
Gilligan = [EMAIL
On Aug 22, 5:44 am, [EMAIL PROTECTED] (Chris) 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 @required
],
);
check_items_for_all(\%all);
When I run the script, I get the following error message:
syntax error at required_items.pl line 13, near $all_ref{
syntax error at required_items.pl line 18, near }
I'm not sure what is causing this. Eventually, I want the script to
access each crew member's belongings
],
);
check_items_for_all(\%all);
When I run the script, I get the following error message:
syntax error at required_items.pl line 13, near $all_ref{
syntax error at required_items.pl line 18, near }
99% sure those syntax errors are a result of your failed dereferencing
of $all_ref.
You should probably
On Aug 22, 12:50 am, [EMAIL PROTECTED] (Yitzle) wrote:
http://perldoc.perl.org/functions/grep.html
Good advice. Irrelevant to the problem at hand, but good advice
nonetheless.
Without testing the code or anything, could it be that:
unless (grep $item eq $_, %$all_ref{$crew}) {
should be:
On Aug 22, 1:18 am, [EMAIL PROTECTED] (Alexandru Maximciuc)
wrote:
Wednesday, August 22, 2007, 7:44:02 AM, you wrote:
unless (grep $item eq $_, %$all_ref{$crew}) {
this does the job well (I think :) )
unless (grep $item eq $_, $all_ref-{$crew}) {
No.
On Aug 22, 6:18 am, [EMAIL PROTECTED] (Alexandru Maximciuc)
wrote:
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 {
Hello Paul,
Wednesday, August 22, 2007, 3:21:06 PM, you wrote:
On Aug 22, 1:18 am, [EMAIL PROTECTED] (Alexandru Maximciuc)
wrote:
Wednesday, August 22, 2007, 7:44:02 AM, you wrote:
unless (grep $item eq $_, %$all_ref{$crew}) {
this does the job well (I think )
@professor = qw(sunscreen water_bottle slide_rule batteries radio);
my %all = (
Gilligan = [EMAIL PROTECTED],
Skipper = [EMAIL PROTECTED],
Professor = [EMAIL PROTECTED],
);
check_items_for_all(\%all);
When I run the script, I get the following error message:
syntax error
);
When I run the script, I get the following error message:
syntax error at required_items.pl line 13, near $all_ref{
syntax error at required_items.pl line 18, near }
I'm not sure what is causing this. Eventually, I want the script to
access each crew member's belongings, figure out which
water_bottle slide_rule batteries radio);
my %all = (
Gilligan = [EMAIL PROTECTED],
Skipper = [EMAIL PROTECTED],
Professor = [EMAIL PROTECTED],
);
check_items_for_all(\%all);
When I run the script, I get the following error message:
syntax error
; beginners@perl.org
Subject: RE: syntax error of some sort?
@list = (Exchange,Filter,DNS,Domain);
sub stop_it {
$vm = $_[0];
print $vm\n;
}
stop_it(@list)
A semi-colon is missing in the list assignment.
if you want to get the first value of the list then you have to use
$_[0
I have the following code (it's a snippet so it may seem silly, but altogether
it would make sense as I am forcing one array into it for a test):
#!/usr/bin/perl -w
@DNS = (/vmfs/volumes/467f06a5-7d59c067-35cb-0007e9153886/Web DNS (Win2003
Std x32)/Web DNS (Win2003 Std
On 7/4/07, Joseph L. Casale [EMAIL PROTECTED] wrote:
snip
if ($state == 'on') {
'vmware-cmd $_[0] stop soft';
my $tools = `/usr/bin/vmware-cmd \$_[0]\
gettoolslastactive -q`;
On 7/4/07, Chas Owens [EMAIL PROTECTED] wrote:
snip
snip
The second I am sure is the darn () in the file names I am feeding
into the function. Can someone shed some light :) I need to call the
first indices of many arrays that get passed into this function, so I
was thinking $_[0] was what I
?
So the `/usr/bin/vmware-cmd \$_[0]\ gettoolslastactive -q`; is correct where
the var gets inserted?
Thanks!
jlc
-Original Message-
From: Chas Owens [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 04, 2007 8:15 PM
To: Joseph L. Casale
Cc: beginners@perl.org
Subject: Re: syntax error
Heh, I am running out of hair:P
I get two errors to start, one is the warning that is better write:
my ($vm) = $_[0];
instead of
my ($vm) = @_[0];
And the other is about the use of the global @_ (huh) with my?
I have this now:
#!/usr/bin/perl -w
@Exchange =
Heh,
Clearly I need to sleep!
This doesn't even work either?
#!/usr/bin/perl -w
@list = (Exchange,Filter,DNS,Domain)
sub stop_it {
$vm = $_[0];
print $vm\n;
}
stop_it(@list)
What is wrong here?
jlc
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
On 7/4/07, Joseph L. Casale [EMAIL PROTECTED] wrote:
Heh,
Clearly I need to sleep!
This doesn't even work either?
#!/usr/bin/perl -w
@list = (Exchange,Filter,DNS,Domain)
snip
You are missing your quotes.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On 7/4/07, Joseph L. Casale [EMAIL PROTECTED] wrote:
Heh, I am running out of hair:P
I get two errors to start, one is the warning that is better write:
my ($vm) = $_[0];
instead of
my ($vm) = @_[0];
The proper way to say this is
my ($vm) = @_;
And looking at your data I would suggest
my
@list = (Exchange,Filter,DNS,Domain);
sub stop_it {
$vm = $_[0];
print $vm\n;
}
stop_it(@list)
A semi-colon is missing in the list assignment.
if you want to get the first value of the list then you have to use
$_[0]
Second Value means
$_[1] and so on...
Hello
I do not have my perl books with me and so I cannot diagnose the
error I am getting with several if statements. Could someone assist?
Here is the code:
#! /bin/perl
#
# Create the files to delete list file
#
#
# Find all the files
#
print Extracting files in directory;
@file_list =
On 9/9/06, AndrewMcHorney [EMAIL PROTECTED] wrote:
I do not have my perl books with me and so I cannot diagnose the
error I am getting with several if statements.
What line is the error? What's the error message? Can you find the
message in perldiag?
if (file_deleted[compare_index] ==
AndrewMcHorney wrote:
Hello
Hello,
I do not have my perl books with me and so I cannot diagnose the error I
am getting with several if statements. Could someone assist?
Do you have the Perl documentation installed on your hard drive?
perldoc perldiag
Here is the code:
#! /bin/perl
OK, I'm getting an error running my perl script and can't seem to see
the problem. Here's the error:
syntax error at C:\src\rex\rex_config.cgi line 544, near $sysnamelist[
syntax error at C:\src\rex\rex_config.cgi line 546, near } elsif
Execution of C:\src\rex\rex_config.cgi aborted due
Thom Hehl mailto:[EMAIL PROTECTED] wrote:
: $SysIndex = 0;
:
: if ($PageNo==1)
: {
: my @sysnamelist=split(/$SEPARATOR/,$config{$SYSNAME});
: my $sysnamelist[$SysIndex]=$input{$SYSNAME};
Remove the my.
$sysnamelist[$SysIndex] = $input{$SYSNAME};
:
* [EMAIL PROTECTED] (Thom Hehl) wrote:
|
| my $sysnamelist[$SysIndex]=$input{$SYSNAME};
why do you need 'my' here ?
--
Eco
http://www.ecocode.net
* Life is wonderful with Emacs and Perl *
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi
I have a script that gives error
Syntax error at /u/isldev3/exp/oper.pl line 7, near )
print
Execution of /u/isldev3/exp/oper.pl aborted due to compilation errors.
$x =3D 3;
$y =3D 4;
$z =3D 3;
if (($x $y $z) 20)
print \n Lies below the range;
a) Is it supposed to give error?
b
Hi Sastry -
At 2005-11-15, 00:25:37 you wrote:
Hi
I have a script that gives error
Syntax error at /u/isldev3/exp/oper.pl line 7, near )
print
Execution of /u/isldev3/exp/oper.pl aborted due to compilation errors.
$x =3D 3;
$y =3D 4;
$z =3D 3;
if (($x $y $z) 20)
print \n Lies below
On Tue, 15 Nov 2005, Sastry wrote:
I have a script that gives error
Syntax error at /u/isldev3/exp/oper.pl line 7, near )
print
Execution of /u/isldev3/exp/oper.pl aborted due to compilation errors.
$x =3D 3;
$y =3D 4;
$z =3D 3;
if (($x $y $z) 20)
print \n Lies below
Sastry wrote:
Hi
Hello,
I have a script that gives error
Syntax error at /u/isldev3/exp/oper.pl line 7, near )
print
Execution of /u/isldev3/exp/oper.pl aborted due to compilation errors.
$x =3D 3;
$y =3D 4;
$z =3D 3;
if (($x $y $z) 20)
print \n Lies below the range
Hi Guys...
Can u plz give me the write syntax for
this
foreach (@lookup_datatype){
my $plus;
($plus) = /([0-9]+)/;
print $plus\n;
}
in this form..
foreach my $i (0 ..$#lookup_datatype){
my $plus;
($plus) = /([0-9]+)/ , $lookup_datatype[$i];
print $plus\n;
}
- Original Message -
From: [EMAIL PROTECTED]
To: beginners@perl.org
Sent: Saturday, September 03, 2005 12:20 AM
Subject: syntax Error ..
Hi Guys...
Can u plz give me the write syntax for
this
foreach (@lookup_datatype){
my $plus;
($plus) = /([0-9]+)/;
print
On Sep 3, [EMAIL PROTECTED] said:
foreach my $i (0 ..$#lookup_datatype){
my $plus;
($plus) = /([0-9]+)/ , $lookup_datatype[$i];
I think you want
($plus) = $lookup_datatype[$i] =~ /([0-9]+)/;
--
Jeff japhy Pinyan % How can we ever be the sold short or
RPI Acacia Brother #734 %
Consultancy Services Limited
Ph:- 044-5816
Cell:- 9283199460
Mailto: [EMAIL PROTECTED]
Website: http://www.tcs.com
Jeff 'japhy' Pinyan [EMAIL PROTECTED]
09/03/2005 12:31 AM
To
[EMAIL PROTECTED]
cc
beginners@perl.org
Subject
Re: syntax Error ..
On Sep 3, [EMAIL PROTECTED] said:
foreach
On Sep 3, [EMAIL PROTECTED] said:
Actually the problem is like this @lookup_datatype = qw ( string(30)
string (40) string(10) Real string(10) Integer string(34) );
when my loop encounters this real or Integer or any other element in the
array it gives a error problem I want to skip through
'
coming back from the Perl Compiler, the problem is a syntax
error in the perl code itself.
Yes I think so
this is why I put the challenge in about
print some stuff here, while(...){}, some other stuff;
since I can not find a way to do that. I tried a variety of
ways to think
problem
is messy enough as it is, since one is trying to marry
input that comes, as in your case from a database, into
output that is wrapped in HTML. So if the problem is
a 'perl error' - the sort of 'unable to do foo at line integer'
coming back from the Perl Compiler, the problem is a syntax
error
On Monday, Nov 10, 2003, at 14:54 US/Pacific, herve.suvigny wrote:
[..]
To morrow I am going to do this way and I have another idea ,
While in first
first stuff
second stuff
[..]
a strategy that I use is to 'build up' the page in the form
$info .=
is trying to marry
input that comes, as in your case from a database, into
output that is wrapped in HTML. So if the problem is
a 'perl error' - the sort of 'unable to do foo at line integer'
coming back from the Perl Compiler, the problem is a syntax
error in the perl code itself.
this is why I
Hi,
I am trying to print on html page the result of select
I have this error;
--
Syntax error at requete line 90, near while
requete had compilation errors (#1)
(F) The final summary message when a perl -c fails.
[Sun Nov 9 16:55:15 2003
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} = $STH-fetchrow_array){
$REQ-Tr,
$REQ-td('$id'),
$REQ-td('$nom'),
Le dim 09/11/2003 à 17:44, drieux a écrit :
Hi,
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} =
$STH-fetchrow_array){
$REQ-Tr,
Le dim 09/11/2003 à 17:44, drieux a écrit :
Hi,
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} =
$STH-fetchrow_array){
$REQ-Tr,
On Sunday, Nov 9, 2003, at 09:24 US/Pacific, lanzaroto wrote:
Le dim 09/11/2003 à 17:44, drieux a écrit :
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} =
$STH-fetchrow_array){
$REQ-Tr,
Le dim 09/11/2003 à 20:02, drieux a écrit :
On Sunday, Nov 9, 2003, at 09:24 US/Pacific, lanzaroto wrote:
Le dim 09/11/2003 à 17:44, drieux a écrit :
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} =
lanzaroto [EMAIL PROTECTED] wrote:
Le dim 09/11/2003 à 20:02, drieux a écrit :
On Sunday, Nov 9, 2003, at 09:24 US/Pacific, lanzaroto wrote:
Le dim 09/11/2003 à 17:44, drieux a écrit :
On Sunday, Nov 9, 2003, at 08:08 US/Pacific, lanzaroto wrote:
while({$id, $nom, $prenom, $email} =
Can someone please help me find the syntax error in the following
practice exercise. The perl compiler says: syntax error at line 7 near
) { but I cannot see it!
#!/usr/bin/perl -w
print Enter the radius: \n;
chomp ($radius = STDIN);
$area = $radius*$radius*3.14
if ( $radius = 0
On Wednesday, Oct 29, 2003, at 08:28 US/Pacific, Rick Triplett wrote:
#!/usr/bin/perl -w
print Enter the radius: \n;
chomp ($radius = STDIN);
$area = $radius*$radius*3.14
--^
normally that would need to have a ;
to close it out.
if ( $radius = 0 ) {
print
[EMAIL PROTECTED] ./summer.pl
Bareword found where operator expected at ./summer.pl line 78, near print
SENDMAIL TO
(Might be a runaway multi-line string starting on line 77)
(Do you need to predeclare print?)
syntax error at ./summer.pl line 78, near print SENDMAIL TO
Backslash
not ready and sends an e-mail notification to the sysadmin detailing the
process id and service name that matched the string not ready. However,
the script produce the following syntax error below, when it comes to the
SENDMAIL part in the sub-routine sendMail:
[EMAIL PROTECTED] ./summer.pl
Bareword
Hello all,
I am getting a syntax error when trying to run the following with CGI
(:standard). It is at line 24 which is marked below. This is coming directly
from the CGI.PM documentation, worse yet I am running PERL 5.6.1.
Am I missing something obvious
Robert,
You're missing a closing paren on the popup_menu function.
William
--
Lead Developer
Knowmad Services Inc. || Internet Applications Database Integration
http://www.knowmad.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Okay, so I'm a total Perl newbie. I have an old script (that I
unfortunately inherited) that I'd like to convert to Perl 5. I copied
it over, and I get a syntax error. I went to perl.org, perl.com, etc.,
but can't find anything that describes the differences between 4 and 5.
I feel like
on Thu, 01 Aug 2002 22:10:41 GMT, [EMAIL PROTECTED] (Robert
Larmon) wrote:
Okay, so I'm a total Perl newbie. I have an old script (that I
unfortunately inherited) that I'd like to convert to Perl 5. I
copied it over, and I get a syntax error. I went to perl.org,
perl.com, etc
Ummm...Are you sure that isn't C?
-Original Message-
From: Robert Larmon
To: [EMAIL PROTECTED]
Sent: 8/1/02 3:10 PM
Subject: newbie syntax error - Perl 4 - Perl 5.6.1
Okay, so I'm a total Perl newbie. I have an old script (that I
unfortunately inherited) that I'd like to convert
]
Subject: Re: Syntax error in Win32:CopyFile()
on Thu, 11 Jul 2002 19:47:35 GMT, Rupert Heesom wrote:
I'm stuck again!
C:\Perl\TIFFPDFperl -d tiffpdf.pl
usage: Win32::CopyFile($from, $to, $overwrite) at tiffpdf.pl line 39,
CFG line 6.
The code line is: Win32::CopyFile $CurrTIFFDir.\\.$_..tif
Hi all:
I'm stuck again!
I'm trying to copy a file using Win32::CopyFile, and the ActiveState
debugger actually lets me run the script without complaining Until I get
to the said line!
The stdout error I get is:
C:\Perl\TIFFPDFperl -d tiffpdf.pl
usage: Win32::CopyFile($from, $to,
open file: $!;
open(OUTPUT, newletter.txt);
while (INPUT){
if(S/\//){
print OUTFILE;
}
}
C:\perl clean.pl
syntax error at clean.pl line 7, near \
syntax error at clean.pl line 10, near }
Execution of clean.pl aborted due to compilation errors
oops, ignore last mail, having one of those days, there was an accidental
capitalization :}
_
MSN Photos is the easiest way to share and print your photos:
http://photos.msn.com/support/worldwide.aspx
--
To unsubscribe, e-mail:
hi,
I simply wished to strip out all the from a text file. below is the
script and the error that is reported. I cannot see anything wrong, it's
such a simple piece of code! can any one help, are my eyes deceiving me?
[localhost:~] tor% perl -e 'while() {s/\//g; print;}'
123
123
12345678
while (INPUT){
if(S/\//){
'' does not have to be escaped (this is not an error, it is the capitalized s as you
mentioned)
You can just write this as s///.
$_ = ';
s///g;
print $_\n;
This prints
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
- Original Message -
From: Adrian Farrell [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, June 11, 2002 5:25 PM
Subject: invisible syntax error
hi,
I simply wished to strip out all the from a text file. below is the
script and the error that is reported. I cannot see
--- Richard Krause [EMAIL PROTECTED] wrote:
I found out what the problem is. If you write
$q-table({-border=undef},
#caption('When Should You Eat Your
Vegetables?'),
... snip ...
instead of
print table({-border=undef},
caption('When Should You Eat Your
I found out what the problem is. If you write
$q-table({-border=undef},
#caption('When Should You Eat Your Vegetables?'),
$q-Tr({-align=CENTER,-valign=TOP},
[
$q-th(['Vegetable', 'Breakfast','Lunch','Dinner']),
$q-td(['Tomatoes' , 'no',
Richard Krause [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hi all
(...)
#td(['Broccoli' , 'no', 'no', 'yes']),
#td(['Onions' , 'yes','yes', 'yes'])
#]
#)
missing a comma ^
s:[EMAIL PROTECTED]...
Hi all
I'd like to generate a html page in a subroutine of my guestbook but I get
a
syntax error pointing to the line where $q-end_html; is written as soon
as
I include a table. If executed without the table, the script runs well.
(the
table is copied from perldoc.cgi
Hello All:
Can anybody please tell me if this syntax is corect. I am getting syntax error in
this block.
foreach $sorted_field (sorted_fields) {
if ($Config{'print_blank_fields'} || $Form{$sorted_field})
{
$_=$sorted_field;
$field=m
-Original Message-
From: Jaishree Rangaraj [mailto:[EMAIL PROTECTED]]
Sent: Thursday, May 16, 2002 10:53 AM
To: [EMAIL PROTECTED]
Subject: Re: Syntax error
Hello All:
Can anybody please tell me if this syntax is corect. I am
getting syntax error in this block.
foreach
Jeff 'Japhy' Pinyan [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
On Mar 27, Wytch said:
Transliteration replacement not terminated at dot.pl line 18.
What is a Transliteration replacement?
First, you've shown us NO code, so we can't help correct your
Transliteration replacement not terminated at dot.pl line 18.
???
What is a Transliteration replacement?
Anyone???
=O) Wytch
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
do you have a =~ tr/// in there somewhere?
-Original Message-
From: Wytch [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March 27, 2002 1:13 PM
To: [EMAIL PROTECTED]
Subject: what does this syntax error mean?
Transliteration replacement not terminated at dot.pl line 18.
???
What
On Mar 27, Wytch said:
Transliteration replacement not terminated at dot.pl line 18.
What is a Transliteration replacement?
First, you've shown us NO code, so we can't help correct your code.
Second, you should check the error documentation:
% perldoc perldiag
and look for
On Mar 27, Jeff 'japhy' Pinyan said:
So it sounds like you've used the tr/// operator and failed to close it
properly.
Or the y/// operator.
--
Jeff japhy Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
I'm having two problems
1) Is there an equivalent of the case function in Perl?
2)I'm also getting a syntax error for the following part of my program that
I'm attempting to run on my Unix system. I get a syntax error message for
'new($url, ', 'login($username, 'cwd($ftp_home), ', and 'get
PROTECTED]
Sent: Tuesday, July 10, 2001 9:43 AM
Subject: Perl-case statement, and module syntax error
I'm having two problems
1) Is there an equivalent of the case function in Perl?
2)I'm also getting a syntax error for the following part of my program
that
I'm attempting to run on my Unix system. I
On Tue, Jul 10, 2001 at 09:43:26AM -0400, Sparkle Williams wrote:
I'm having two problems
1) Is there an equivalent of the case function in Perl?
perldoc -q switch, or
http://www.perldoc.com/perl5.6/pod/perlfaq7.html#How%20do%20I%20create%20a%20switch%20or%20case%20statement%3f
$ftp =
--- Michael Fowler [EMAIL PROTECTED] wrote:
On Tue, Jul 10, 2001 at 09:43:26AM -0400, Sparkle Williams wrote:
I'm having two problems
1) Is there an equivalent of the case function in Perl?
perldoc -q switch, or
Check out Damian Conway's Switch module.
, as documented.
Jason
- Original Message -
From: Sparkle Williams [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, July 10, 2001 9:43 AM
Subject: Perl-case statement, and module syntax error
I'm having two problems
1) Is there an equivalent of the case function in Perl
93 matches
Mail list logo
