}
}
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
Thanks for all your help, but I took the easy way out and re-installed Perl.
Now everything broken seems to be fixed.
My original message:
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:\D
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 solution (r
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/:standard/;
use
Friends.
I want to pop up an alert if a checkbox isn't checked.
Below is the code I have so far.
Notes:
1. The cgi page is actuatlly at
http://www.biblescramble.com/Esther/scriptCheck.cgi
2. x.cgi doesn't exist. This doesn't get that far. I'm just working on the
alert.
3. "if(1==1)" obviously
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://biblescramble.com/dn
>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
Friends,
I'm hoping I'm missing something obvious.
I have a cgi page with checkboxes, radio buttons, textareas working.
However, I'm trying to add a filefield and having trouble.
I have a print statement, followed by a few lines ending in commas.
Later I have:
start_multipart_form(-method, "po
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!
Friends,
How do I put a Scrollbar on the following?
use Tk;
my $mw=new MainWindow;
$mw->geometry("200x400+400+10");# Width X height + from left + from top
@output=("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "a",
"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l
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 strict;
use C
>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
Friends,
Below is code from "Perl and LWP" by Sean Burke. Run it from the command
line with " -gk It seems that it's going to be a fine day." as arguments.
The goal is to translate to Greek and back. Doing so manually at the site it
uses yields "It appears that it is to be one thin day." Appare
>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
>
Friends,
My website, biblescramble.com, has two anchors to use to enter the actural
game. When I diagnosed a problem with cookies I made them different. The
first one, ("Click _HERE_") points to http://biblescramble.com/ezo7.cgi. The
second one, ("to play _BIBLE SCRAMBLE HANGMAN_") points to
h
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]) {
Friends,
I would like to learn how to enter a name and password with Perl, using LWP.
I'm sure this exercise will be instructive for others looking in, also.
I have set up an e-mail account for this purpose. The address is
"[EMAIL PROTECTED]" and the password is "perl". Use it as you see fit.
Roger,
I don't know what the answer is, but I'll bet it's no coincidence that
chr(3) is ansii for the heart symbol.
print chr(3); # This prints the character for a heart from a Windows file:
<>; # Make it so the DOS window doesn't disappear before you
hit return
Show me a cou
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@listser
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:
t;.
Try doing this.
use LWP;
print "version=", $LWP::VERSION, "\n";
- Mike
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Jerry Kassebaum
Sent: Thursday, February 09, 2006 10:34 AM
To: perl-win32-users@listserv.ActiveState.com
Su
Tutors,
I am to the LWP chapter in Suehring's "Beginning Perl Web Development". I
know I need to use PPM to install LWP, but which one??? Here's what I tried:
ppm> search LWP
Searching in Active Repositories
1. LWP-attic [1.00] LWP-attic
2. LWP-Authen-Wsse
(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
Jerry Kassebaum wrote:
Friends,
I know how to change permissions on my website with telnet on my Windows ME
machine. I connect by typing web7.seanic.net in the Hostname box, telnet in
the Port box, and vt100 in the TermType box.
However, I can't figure out what
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
Friends,
I know how to change permissions on my website with telnet on my Windows ME
machine. I connect by typing web7.seanic.net in the Hostname box, telnet in
the Port box, and vt100 in the TermType box.
However, I can't figure out what to do on my Windows XP machine. I type
"open web7.sea
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
79 matches
Mail list logo
