you using?
>
> Also, are you SURE that the program below is what you are tyring to run.
> - Original Message -
> From: "Daniel Falkenberg" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Saturday, April 06, 2002 1:27 AM
> Subject:
ED]>
Sent: Saturday, April 06, 2002 1:27 AM
Subject: Can any one see anything wrong with this simple code?
>
>
> #!/usr/bin/perl -w
>
> use CGI qw(:all);
>
> print header();
>
> print<
>Hello World!
>
> HTML
>
> This on any other
#!/usr/bin/perl -w
use CGI qw(:all);
print header();
print<
Hello World!
HTML
This on any other day seem very simple to me but for some reason I am
recieving the following error?
Can't find string terminator "HTML" anywhere before EOF
I have tried with or without HTML; but still not lu
Thank you all for you prompt and accurate help. I will not soon forget the
difference between assigning a value and a numeric comparison operator.
Jason, with the "@a=$number" statement, I was trying to create the list by
changing contexts. In other words, if returns the input in a scaler
cont
On Jan 31, Rambog said:
>I am attempting a program that reads a list of numbers from the screen until
>the number 999 is read. It then prints the sum of all numbers read- with
>the exception of the 999.
>
>My code looks like:
>
>until ($number=999) {
You want ==, not = here.
>print "Please inp
6:10
To: [EMAIL PROTECTED]
Subject: Debug some simple code
I am attempting a program that reads a list of numbers from the screen until
the number 999 is read. It then prints the sum of all numbers read- with
the exception of the 999.
My code looks like:
until ($number=999) {
print "Pleas
AIL PROTECTED]]
Sent: Thursday, January 31, 2002 11:10 AM
To: [EMAIL PROTECTED]
Subject: Debug some simple code
I am attempting a program that reads a list of numbers from the screen until
the number 999 is read. It then prints the sum of all numbers read- with
the exception of the 999.
My code looks l
At 11:09 AM 1/31/2002 -0500, you wrote:
>I am attempting a program that reads a list of numbers from the screen until
>the number 999 is read. It then prints the sum of all numbers read- with
>the exception of the 999.
>
>My code looks like:
>
>until ($number=999) {
>print "Please input your numb
A couple of things here ...
1) Watch out for = vs. == ... very tricky! Your first until loop won't even
eval b/c $number=999 is always true.
2) @a=$number; is not what you want... I'm not even sure what that does. You
probably want to use the push function, like so:
push @a, $number
I am attempting a program that reads a list of numbers from the screen until
the number 999 is read. It then prints the sum of all numbers read- with
the exception of the 999.
My code looks like:
until ($number=999) {
print "Please input your number:\n";
chomp($number=);
@a=$number;
}
foreach $
/GATCgatcRYMKrymkSWswHBVDhbvdNn/CTAGctagYRMKyrmkWSwsDVBHdvbhNn/;
>
> return $seq;
> }
>
> Cheers
>
> Mark C
>
> > -Original Message-
> > From: Henry Hung-Yung Wang [mailto:[EMAIL PROTECTED]]
> > Sent: 09 November 2001 15:31
> > To: [EMAIL
hNn/;
return $seq;
}
Cheers
Mark C
> -Original Message-
> From: Henry Hung-Yung Wang [mailto:[EMAIL PROTECTED]]
> Sent: 09 November 2001 15:31
> To: [EMAIL PROTECTED]
> Subject: simple code
>
>
>
> Hi All,
>
> I have just written some codes, but they
Andrea Holstein wrote:
>
> Henry Hung-Yung Wang wrote:
> >
> > @dna=split (//, $dna);
>
> What's your regexp to split.
> split //, $dna uses the last regexp used in the program.
> Perhaps you meant split /\w/, $dna ?!
Are you sure?
$ perl -le'$_ = "This is a test of split."; print "Found" if /
Henry Hung-Yung Wang wrote:
> I have just written some codes, but they are not doing what I wanted them
> to do. Here are the codes:
>
> @motif= ('ACGTACGT', '', 'CCGGCCGG', 'GGCCGGCC');
>
> print "Please enter sequences to be examined:\n\n";
> $dna=; chomp $dna;
>
> @dna=split (//, $dn
Henry Hung-Yung Wang wrote:
>
> I have just written some codes, but they are not doing what I wanted them
> to do. Here are the codes:
>
> @motif= ('ACGTACGT', '', 'CCGGCCGG', 'GGCCGGCC');
>
> print "Please enter sequences to be examined:\n\n";
> $dna=; chomp $dna;
>
> @dna=split (//,
Hi All,
I have just written some codes, but they are not doing what I wanted them
to do. Here are the codes:
@motif= ('ACGTACGT', '', 'CCGGCCGG', 'GGCCGGCC');
print "Please enter sequences to be examined:\n\n";
$dna=; chomp $dna;
@dna=split (//, $dna);
foreach $bp (0..$#dna-8){
$eight
16 matches
Mail list logo
