}
}
jax.send(null);
}
else
{
alert("Contact site owner for ajax alternative.");
}
}
I don't know how this all will strike you, so I haven't put a lot of time into
making it prese
at
C:\Documents and Settings\Jerry\... I get a similar (@INC contains: .) when I
try to use PPM. What is the cause (virus?) and what is the solution (re-install
Perl?)? Jerry KassebaumDallas, TX
_
Hotmail® is up to 70% faster. Now
When I try to use programs I wrote that use LWP/Simple I get the following
error message: Can't locate LWP/Simple.pm in @INC (@INC contains: .) at
C:\Documents and Settings\Jerry\... I get a similar (@INC contains: .) when I
try to use PPM. What is the cause (virus?) and what is the sol
http://blog.makezine.com/archive/2008/01/oreilly_book_maker_create.html?CMP=OTC-0D6B48984890
_
Shed those extra pounds with MSN and The Biggest Loser!
http://biggestloser.msn.com/___
Perl-
http://blog.makezine.com/archive/2008/01/oreilly_book_maker_create.html?CMP=OTC-0D6B48984890
_
Climb to the top of the charts! Play the word scramble challenge with star
power.
http://club.live.com/star_shuffle.aspx?icid=starshuffl
Wow you're good! The problem was that $dest needed "chomp $dest". So your "\n"
theory was correct.
THANKS!
> From: [EMAIL PROTECTED]
> To: perl-win32-users@listserv.activestate.com
> Date: Wed, 12 Dec 2007 16:15:04 +0100
> Subject: Re: System Calls
>
&
I add this line: "<>;" to my code, so that the user has to hit to
continue or end the program.
Or I just open a DOS so I can see everything. However, that means navigating to
that directory, which is a hassle.
Actually, I'm hoping someone has a solution I like better, so I can use it too.
Su
Friends,
I had to go to kasamba.com and purchase a solution. I had to ask three
experts before one could answer, and it cost $5. (The first two charged
nothing.)
Two lines had to be changed:
$insert = "Hazel Work states: KS relocate: No";
Notice that the solution was the tag, not "\n"
Friends,
The following code is live at http://www.biblescramble.com/Esther/x.cgi.
I want to put newlines where the tabs are in $insert=" Hazel Work states:
WY relocate: No";
I've tried , \n, etc. What do I need?
Thanks in advance.
Jerry
#!/usr/bin/perl
use CGI qw/
"x.cgi",
-onSubmit=>"return valid8()"),"\n",
h2("Check this"), p, checkbox(-name, "checker", value, "checker"), br,
p,submit("Submit"),
end_form,
end_html;
###
Thanks in advance!
Jerry
Often I need to extract the file name from a path. Typically I do
something like following. Any better ways I could do this?
#path test
$current_file = "c:/somedir/test.ps";
@split_path = split("/",$current_file);
$current_file = @split_path[-1];
print $current_file;
However, I'm pretty sure
I wrote back to the guys at my server, asking what they did to solve the
problem. The actual solution was that they added this line, right under the
shebang line:
$CGITempFile::TMPDIRECTORY = '/users/web/kass/web/dns/tmp';
_
Mortga
>Things to look at or try:
7) This is from a rep at my server:
"Hi Jerry,
Thank you for contacting us.
We have found the problem and we have fixed it for you. Kindly check it.
Thank you."
Thanks for your help, Bill!! It is working. If you upload a textfile to
http://bibl
>Jerry Kassebaum wrote:
>>Bill et. al.,
>>
>>This is a little embarrasing. Bill, you helped me with a similar problem
>>back in December, but I never quite got it. Below is the code you gave me.
>>But when I browse to a file and submit, I get the error: "
Bill et. al.,
This is a little embarrasing. Bill, you helped me with a similar problem
back in December, but I never quite got it. Below is the code you gave me.
But when I browse to a file and submit, I get the error: "Software error:
CGI open of tmpfile: Permission denied".
About 10 lines do
owse" line
on the first page.
The first page seems to work fine. The second page has the error. Both pages
work fine if the filefield line is left blank.
I'm hoping that's enough clues.
Jerry
_
Need a br
The following cgi script is at http://biblescramble.com/ezo7x.cgi.
The first time you load this page it will set a cookie on your machine and
display the error message in the last line of the script.
The next time(s) you load it it will redirect to the html page it creates on
the server.
If yo
From: Glenn Linderman <[EMAIL PROTECTED]>
To: Jerry Kassebaum <[EMAIL PROTECTED]>
CC: perl-win32-users@listserv.ActiveState.com
Subject: Re: Cookie Trouble
Date: Tue, 20 Feb 2007 09:37:19 -0800
On approximately 2/20/2007 6:45 AM, came the following characters from the
keybo
From: Bill Luebkert <[EMAIL PROTECTED]>
To: Jerry Kassebaum <[EMAIL PROTECTED]>
CC: perl-win32-users@listserv.ActiveState.com
Subject: Re: Cookie Trouble
Date: Tue, 20 Feb 2007 14:52:31 -0800
Jerry Kassebaum wrote:
If you need more details, let me know. If you go to biblescramble.
game will
work. Delete my cookie from your machine and it will goof up again.
Thanks!
Jerry Kassebaum
P.S.
The last few lines of the cgi program follow:
print "Location: http://biblescramble.com/biblescramble7.html\n\n";;
# BOTH returns on the end are vital! One won't do ya!
ot;, "h", "i", "j", "k", "l", "a",
"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l");
while($output[$cnt]){
$show=$mw->
Bill and all,
I think I'm getting closer. But when I upload a file I get the error: "CGI
open of tmpfile: Permission denied".
Now what?
Jerry
From: "$Bill Luebkert" <[EMAIL PROTECTED]>
To: Jerry Kassebaum <[EMAIL PROTECTED]>
Subject: Re: File Upload
>Can u restate the question?
Sure.
Take a look at http://biblescramble.com/dns/textArea04.cgi.
If a visitor enters text in the top text box and hits "submit query", the
next page returns what was typed in .
I'd also like the visitor to be able to send in a text file from his hard
drive and ha
Friends,
The cgi below is at http://biblescramble.com/dns/textArea04.cgi.
If you type lines in the text box, it spits them back when you hit "Submit
Query".
However, I also want it to spit back a text file. What am I missing?
Thanks!
Jerry
##
#!/usr//bin/perl -T
#use s
>I have a regular expression problem
>
>how do i use scalar variables in substitution and complex matching?
>
>eg I want the following to work.
>
>$string =~ s/^$variable//;
>
>$string =~ m/^([^$variable]*)/;
>
>
>thanks in advance for your help.
>
>-Jeremy A.
$x = "Cowboy";
$y = "ow";
$x =~ s/$y/
Perl made it into the comics today! Check out Foxtrot.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
s, $resp)
if wantarray;
return unless $resp->is_success;
return $resp->content;
}
__END__
C:\book\code\ch02>perl alienate.pl "It was more fun than a barrel of
monkeys"
=> via it => It was more divertimento that a keg of the monkeys
C:\book\code\ch02>perl
>Set-Cookie: testcookie=test; expires=Wed, 29-Dec-2010 00:00:00 GMT;
>Location: http://biblescramble.com/biblescramble7.html
>
>EOD
> exit 0;
That's got it! Thanks, Bill!
Funny, though, it still won't add the cookie if I leave the "www." in the
url. I can live with that, though.
In case
Bill,
Nope, still does the same things, exactly. One goes to the weird screen, and
the other doesn't set a cookie.
Jerry
>From: "$Bill Luebkert" <[EMAIL PROTECTED]>
>To: Jerry Kassebaum <[EMAIL PROTECTED]>
>CC: perl-win32-users@listserv.ActiveState.com
>
on't set a cookie, even if clicked again.
Also, on my Windows ME machine I have to erase the cookie more than once to
get it actually erased, using "Tools-Options" on the Firefox toolbar.
Any help would be appreciated. If you need to
Oh! I also use the "<>;" to pause output, so things don't scroll off the
screen. Output continues when I hit .
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Thanks for your help, Bill! I ran your code, which worked, which made me
take a different look at my code.
Sorry, but I didn't give you enough info to spot the problem. Here's the
whole thing:
open(STORAGE, "){
$_ =~ /(\w+)/;
$sym{$1}++;
foreach
Friends,
Below is a portion of code which repeats $v ad infinitum when the if
condition is met. How do I break out of the loop?
foreach $v (keys %sym) {
if($sym{$v}>1) {
print $v; <>; # Here's where it repeats the same thing, rather than
advancing.
}
print "You appear to have no speaker of any kind, so...\n\n\n\n";
print " BP!!!
";
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://list
To determine the correct path for your perl interpretor, use:
which perl
--
Please give me a context.
C: which perl
$x = which perl;
c: perl which perl
I'm missing something here.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@li
@a = (1,2,3,4,5);
for $x (@a)
{
if($x==3){next;}
print "$x\n";
}
##
You wrote:
Syntax issue (I think),
I'm trying to do the following:
I need to execute a block of instructions for all items in an array
except for one.
So if my array was:
@a=(1,2,3,4,5);
And we assu
Friends,
I am attempting to enter some text in a Tk text area and send it to my
(Windows ME) DOS window.
Below are two programs, the first with the text area, which doesn't work,
and the second with a single-line text entry, which does work.
#
use strict;
use Tk;
my $mw=MainWindow->new;
For my own amusement and edification, if nothing else:
##
@myArray = ("aacs1110", "brbt4332", "rtxa4320", "aacs2000", "brig5621",
"brbt5220", "nbvc");
#I'm using the assumption that the version numbers only increase in time.
print "@myArray\n\n";
while($myArray[$x]) {
ntent;
<>;
exit;
Here is what I receive back for all my effort:
405 Method Not Allowed
Method Not Allowed
The requested method POST is not allowed for the URL
/mywebmail/index.html.
I'm on a Windows machine.
Jerry
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
ou
hit return
Show me a couple different lines of script, and how you want them to turn
out, and someone else will answer your question before I even get to see it.
Jerry
I have a script that connects to IRC, it outputs to the STDIN messages heard
in the
I think this is amusing. Can you guess in advance what it's going to do?
while(){print;}
<>;
__END__
while(){print;}
<>;
__END__
I run it by clicking on it in a Windows folder.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveStat
$string = "MBH1 WELL PIT050";
$string =~ s/.* (.*?)\d+/\1/; # Questionmark makes it
non-greedy
($prefix) = $string; # Didn't figure out how
to do ($prefix) = $string =~
print "$prefix";
<>;
**
Hello,
I am looking for help on a
How do I get a directory listing on a Windows machine? I think it is
something like:
$direc = system `dir`;
print "$direc";
<>;
Thanks.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.Activ
calhost -p < go.txt
Enter password: ***
ERROR 1045 (28000): Access denied for user 'localhost'@'localhost' (using
password: YES)
Here is the contents of go.txt: select * from pet;
Jerry Kassebaum wrote:
I'm trying to learn mySql for
Matt
I use seanic.net. They have been very helpful.
For cgi files you will have to ftp your programs to them, and use telnet to
change your permissions. Let me know if you need help.
Jerry
___
Perl-Win32-Users mailing list
Perl-Win32-Users
The code below is modified from Suehring's "Beginning Perl Web Development".
I'm thinking it is supposed to get me the format for entering my username
and password. However, the result I get is "2".
Help?
Also, I don't know what that "Subscrbers" line would be for.
use LWP;
$browser = LWP:
Mike,
First, thanks!
Second, what was my book doing with telling me to enter
perl -MLWP -e 'print "$LWP::VERSION\n" '
from the command line??
Jerry
***
It's just the "LWP" module in "libwww-perl&quo
already installed.
Man, it is great to know a clear answer is on the way. Seriously, this group
is great!
Jerry
P.S. My guess is #12. My second guess is #14. #10?
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscr
(Assuming that is the problem.)
**
Jerry Kassebaum wrote:
I'm trying to learn mySql for use with cgi, so I hope y'all will consider
this close enough to a perl question.
I have a file called perl.dbt that contains a batch file to a database. (It
should
I'm trying to learn mySql for use with cgi, so I hope y'all will consider
this close enough to a perl question.
I have a file called perl.dbt that contains a batch file to a database. (It
should list all the books I've read with Perl in the title.)
When I go to the command prompt and enter
m
Below is code from "Beginning Perl Web Devolopment" by Steve Suehring, page
25, modified somewhat by me.
I added the line:
use CGI::Carp qw(fatalsToBrowser);
Then I deleted a double quote to create an error. It seems to make no
difference that I added the Carp line. I get the same error
Lyle,
I needed your advice on using the DOS prompt, but I needed to contact Seanic
for further advice. The correct command is: telnet web7.seanic.net 2320. I
guess that last bit is a port number, eh? It also works from the Run Box on
the Start Menu.
Thanks!
Jerry
From the DOS command prompt I typed "telnet web7.seanic.net".
I got:
Connecting To web7.seanic.net...Could not open connection to the host, on
port 2
3: Connect failed
*******
Jerry Kassebaum wrote:
Friends,
I know how to change permissions on my we
;open web7.seanic.net" to no avail.
Please help.
Jerry
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I was in the mall with my Perl book, wearing my son's Marine pants from
basic training. (I like to have something to read while my wife shops.)
A young man comes up to me and says, "Where did you get the new camoh?" (I
didn't get that last word.)
I showed him the book, about to explain that t
I tried to install LWP::RobotUA with ppm.
Am I correct that it is not available in a Windows ME format, or did I just
do something wrong? I searched for RobotUA and came up with nothing.
*
jzaba wrote:
I have some issues with POST
I need to create spider for this URL.
http://
The solution was to put the following in the JavaScript code TWICE, in the
usual spot AND as the last thing before the tag.
I haven't experimented to see which of the four META tags are actually
necessary. I'm just glad to have it working.
__
Thank you!
It wasn't easy, but the answer was there!
I'll give the full explanation if anyone wants it, but here is the short
one. The CGI and JavaScript files were updating, but not the two *.js files
with the chapter and verse! So I eliminated them and put the info in the
JavaScript file.
resh
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Steven Manross
Sent: June 10, 2005 12:38 PM
To: Jerry Kassebaum; perl-win32-users@listserv.ActiveState.com
Subject: RE: Prevent Loading from Cache in Internet Explorer
IE->Tools->Internet Options-
Sorry, but this is a repeat question.
Here's the question: How do I prevent Internet Explorer from loading from
its cache?
Here's the problem: I have an online game, biblescramble.com/ezo1.cgi, that
uses Perl to choose a random Bible verse from 600 or so, and then calls a
JavaScript to play
First, forgive me if this is a _javascript_ question! This involvess a Perl/CGI program that selects a Bible passage and then runs a _javascript_ program that plays Hangman with the passage. I don't know which script has the problem.
Here is the site: biblescramble.com/ezo1.cgi
If I run it in Fire
P.S.
I just noticed that if I hit Play Again and then Refresh, it does work right in IE. I figured that may be a clue.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman
Somewhere I read of an interesting method for marking files for backup. The
plan is to mark files that have been backed up with a time that is
impossible, like 10:61. Who really cares about the seconds on a file name? I
plan to make at least two backups of each file on my computer using this
me
$x=10;
$x=$x++;
print "$x\n";
$x=10;
$y=$x++;
print "$x\n";
#Results: $x=10, $x=11.
#I understand it, but I think it's weird anyway.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.co
To get the file date that you want, use the Perl function utime.
So, I was thinking, how do I find out about this "utime"?
I punched "Perl utime" into Google, and came up with:
http://www.rocketaware.com/perl/perlfunc/utime.htm
Wow! This looks like it could be a treasure-trove for beginners like m
I would like to automate tvguide.com.
I have read Spidering Hacks, but I'm stuck.
Here is the form portion of their code that takes my e-mail address for the
log-in:
*
valign="top"
align="left"
style="padding-left:10px; padding-right:5px; padding-top:15px;
padding-bot
CSI:Listserv
It does work with the one "\n". Nor do I have a blank line immediately
following in the code.
Chris Wagner <> wrote:
:
: redirect("http://biblescramble.com/ezo.html";);
: #or print "Location: http://biblescramble.com/ezo.html\n";;
No, I don't think so. Headers end with one blank
Dear Wise and Learned Ones,
I want to use a CGI program to do some calculations, and then to call a
JavaScript program using the info that the CGI program writes to a file. I
have both the CGI and JavaScript programs up and running, but "First load
this program and then this one" isn't too sharp
it's looking for a TCPDump log
file.
TCPDump is a program that dumps raw TCP packet info, not a perl package.
So
it seems like u should capture a log file with TCPDump and then analyze
it
with this package.
At 09:09 PM 3/8/05 -0600, Jerry Kassebaum wrote:
I installed TCPDump. Now it looks like I
I installed TCPDump. Now it looks like I need a log file to read, second
line, below. What do I put into it?
##
use Net::TcpDumpLog;
$log = Net::TcpDumpLog->new(); $log->read("/tmp/out01");
#$log = Net::TcpDumpLog->new(); $log->read("test.txt"); #I tried putting a
URL into the file #"te
How do I use it?
I renamed the program sniff.pl, and did c:\perl sniff.pl.
Then I put http://localhost:8080 in my Internet Explorer browser.
I got:
HttpSniffer waiting for clients on port 8080...
Can't connect to server localhost:80
Now what?
___
Perl-Win
using Mechanize or some such.
Two questions.
Is http://schmerg.pwp.blueyonder.co.uk/HttpSniffer.pl.txt what I'm looking
for?
Will it work from a Windows machine? I can't get it to do anything on mine.
Bonus question : If this isn't what I'm looking for, what is?
Jerry Kas
My favorite is The Perl Black Book by Steven Holzner.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Where do I find the documentation for Mechanize? I use a Windows machine.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
y to read the data coming into my computer to a file on its
way
to my browser? Is there a way to intercept what the browser is going to
send to the internet, change it, and then send it out? Man, that would
make
scraping the internet a piece of cake!
Jerry Kassebaum
Lyle,
That sounds like EXACTLY what I would like to do. But...I don't know how.
How do I create a proxy server? Or where would I find an existing one?
Jerry
***
Jerry Kassebaum wrote:
This may be a socket question.
Is there a way to read the data coming in
print "\nWhere are the files? ";
$dir = ;
chomp ($dir);
opendir (DIRECTORY, $dir);
@files = readdir (DIRECTORY);
foreach $x (@files) {
$x = lc $x;
print "$x\n";
# or print lc "$x\n"; combining the previous two lines
}
**
my $string = "cabccabccac";
my @array =$string =~ /a/g;
my @array2 =$string =~ /ab/g;
@array = "@array " . "@array2";
print "@array";
**
Hello, i am new in Perl and i have a doubt that i think is very easy to
result.
I have this portion code:
my $string = "cccabccc";
my @array =$s
!
Jerry Kassebaum
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I think he's looking for number of
cylinders, heads, sectors per track, etc.
CONFIDENTIALITY
WARNING:
This
electronic message contains information which may be privileged and/or
confidential. This information is intended for the exclusive use of the
individual(s), entity, or persons name
?
So I need to compile the program into an exe, OK ... how do I do that, I
understand that perlAPP will do that but, does that necessitate the .exe
being bound to a Win environment?
I would like to compile the script and place it on a Linux box. Any ideas?
T
81 matches
Mail list logo
