Hi,
I am working on a HTML form processing script that writes the contents of a
form to a text file. The script works perfectly most of the time. The
exception being when I submit the form using Internet Explorer for Windows.
It is then that I get an error that says something like BAD REQUEST,
Hi All,
Could anyone tell me how to do the following usinf
Perl.
Consider the following lines:
Apple
Mango
Banana
Orange
I want to replace line 1, line 2 i.e. (Apple, Mango)
with hello1\nhello2\nhello3\n.
The output should be:
hello1
hello2
hello3
Banana
Orange
I tried something like
lakshmi nrusimhan wrote:
Consider the following lines:
Apple
Mango
Banana
Orange
I want to replace line 1, line 2 i.e. (Apple, Mango)
with hello1\nhello2\nhello3\n.
The output should be:
hello1
hello2
hello3
Banana
Orange
I tried something like this:
$t=Apple,Mango;
perl
I'd like to upload all images to a specified server directory whose names
are written in img src=imagefilename in a textarea field.
I'm extracting the filenames through a regexp and store them in an array.
Then each array element is given the proper server path, a few checks on
filenames are
Shawn,
Yeah, you are right.
I was misunderstanding my experience caused an error when using #exec with
query-string.
#include with query-string DOES work correctly; at least on Apache httpd.
BTW,
!--#set var=file value=home --
They are in %ENV.
Does this depend on server settings? I
Hi, you guyz!
I made a script that show /var/log/messages* when you press submit.
But!!! it doesn't come out to the last when the file size is upper
than the few MB.
Is that my mistake? or is that a kind of the bug?
Please let me know about it.
Thank you.
My server :
On Sat, 15 Dec 2001 09:56:25 -0500 (EST), [EMAIL PROTECTED] (Jeff
'Japhy' Pinyan) wrote:
On Dec 14, zentara said:
It works , but I'm getting unexplained (as of yet)
corruption in the alignment of the printout
in the ranges decimal 5-16, and 126-180.
Do you know that the printable range of
If I have a string
$s='ABC';
how can I split it into one-char-long-element-array like
@s=('A','B','C');
and, generally how can I access individual characters of a string variable?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi. I'm running ActivePerl 5.6 on Windows 2000. I installed the Boulder
module from CPAN and I'm trying to access Genbank using Boulder::Genbank via
Entrez. I'm able to retrieve the correct entries by query, but it keeps
retrieving them over and over in an infinite loop. Maybe you can see
On Sat, 15 Dec 2001 09:56:25 -0500 (EST), [EMAIL PROTECTED] (Jeff
'Japhy' Pinyan) wrote:
Do you know that the printable range of characters is from 32 to 126?
Specifically...
character 8 is backspace
character 9 is tab
character 10 is newline
character 13 is carriage return
See the
Hi. I'm running ActivePerl 5.6 on Windows 2000. I installed the Boulder
module from CPAN and I'm trying to access Genbank using Boulder::Genbank via
Entrez. I'm able to retrieve the correct entries by query, but it keeps
retrieving them over and over in an infinite loop. Maybe you can see
I can think of lots of times the output of 'time()' has been just what I
needed. For example, anytime you want to compare times, like
my $timeout = time() + $sec_to_alarm;
do {
#stuff
} until (time() $timeout);
Or to compare dates
$date = timelocal(@user_supplied_date);
$now = time();
if
I.J. wrote:
If I have a string
$s='ABC';
how can I split it into one-char-long-element-array like
@s=('A','B','C');
and, generally how can I access individual characters of a string variable?
my @s = split //, $s;
my @s = unpack 'a' x length $s, $s;
my @s = $s =~ /./gs;
push @s,
On Dec 15, zentara said:
use Time::HiRes qw (time alarm sleep);
sleep(.05);
You could have just used 4-arg select() instead... ;)
select(undef, undef, undef, .05);
--
Jeff japhy Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734
On Dec 15, Michael Pratt said:
How can I open several files with this format sn..txt where is
0001 0002 so on and so on?
Use a glob, and use Perl's @ARGV magic:
{
local @ARGV = glob sn..txt;
while () {
# opening each file from @ARGV, one at a time
# $ARGV is
Michael Pratt [EMAIL PROTECTED] said:
How can I open several files with this format sn..txt where is 0001
0002 so on and so on?
You can use the globbing (shell pattern matching) magic of the
operator to get the names of the files. Try this to see how it works.
while (sn.) {
dan radom [EMAIL PROTECTED] said:
I'm having a problem with Getopt. If I pass the -p option the script uses the proxy
as it should. If i pass it -p -o it ignores the unless (exists($args{o})) and writes
to $outfile anyway. Any idea why it's doing that?
You want to use getopts() and not
Can anyone tell me why this timeout isn't working? The script dies at the time
interval I set, but it completely ignores the getopts arguments. If I only use
LWP::Simple everything works, but the default 3 minute timeout is too long.
Dan
use LWP::Simple qw(get $ua);
$ua-timeout(25);
#use
On Sun, Dec 16, 2001 at 06:19:40AM -0800, John W. Krahn wrote:
I.J. wrote:
If I have a string
$s='ABC';
how can I split it into one-char-long-element-array like
@s=('A','B','C');
and, generally how can I access individual characters of a string variable?
substr()
But might I
Well, I am landing from C and this is all so intriguing, but at this time
I'd like to load part of the file(binary) as array of chars. Like:
read(FILE,$s,$I,$J);
@s=split//, $s;
however, It seems to me that much computer power are used in vain. Is there
any other way that does the job directly
On Dec 16, I.J. said:
Well, I am landing from C and this is all so intriguing, but at this time
I'd like to load part of the file(binary) as array of chars. Like:
read(FILE,$s,$I,$J);
@s=split//, $s;
however, It seems to me that much computer power are used in vain. Is there
any other way
Hi All,
Just working on a new hash that I need some help with...
Firstly
I can create a hash like the following no problem
%popusers = (
'user1' = 'Fullname1',
'user2' = 'Fullname2',
'user3' = 'Fullname3',
);
Foreach
Hi All,
Just working on some HTML stuff at the moment and I have a come across a
little problem that I don't really understand
Basically I place the following ararry (really only text) into a
scrolling text box but when the text array is seen through the text box
it looks like the
At 02:23 PM 12/17/01 +1030, Daniel Falkenberg wrote:
Just working on some HTML stuff at the moment and I have a come across a
little problem that I don't really understand
Basically I place the following ararry (really only text) into a
scrolling text box but when the text array is seen
Peter,
That is exactly what it does but is there any way to get rid of that?
Regards,
Dan
-Original Message-
From: Peter Scott [mailto:[EMAIL PROTECTED]]
Sent: Monday, 17 December 2001 2:28 PM
To: Daniel Falkenberg; [EMAIL PROTECTED]
Subject: Re: Format of array in HTML text box gone
Try the following code:
undef $;
print @lines;
$ = ; #there's a space between the two double quotes
Otherwise you could just do this:
print @lines; #without the double quotes default is no space or anything
else
That is to say if indeed you've got a 'print @lines;' thing going on.
Please
Hello all!
Can some one help me with the following hash of a hash?
I need to create a hash of a hash in the following format...
%popusers = (
'user1' = {
'Fullname1' = 'YES',
}
'user2' = {
Hey All,
I just figured out the answer to my own question
It is as follows...
use Data::Dumper;
$file = '/etc/passwd';
$procrc = .procmailrc;
sub view_users{
open PASSWD, $file or die $file: $!\n;
flock(PASSWD, 2) || die Can't lock $file exclusively: $!;
while ($lines = PASSWD) {
Jeff 'japhy' Pinyan [EMAIL PROTECTED] writes:
Note: they are used INSIDE a character class: /[[:digit:]]/.
OK -- thanks. I'd seen that before, but thought it was a
different syntax [[]]. It's still the character class
syntax [], but with something weird in it [:digit:].
Makes sense now.
It
Michael R. Wolf [EMAIL PROTECTED] said:
Since is used so often in a while loop to mean the
diamond operator, I prefer to spell out glob as follows.
while (glob sn.) {
print $_\n;
}
Just a *preference*. They're both *right*.
I agree. Your way is somewhat cleaner and
Kristina,
This is how my code works...
my @oofmsg = param('oofmsg');
printHTML;
/tr
tr
td vAlign=top width=89 height=150nbsp;
pb style=font-weight: bold; font-size: 13px; color: #66;
font-family: arial, helveticaOut
Of Office Message/b/td
td vAlign=top
31 matches
Mail list logo
