Why not use the DB to process your sort?
todd.
On Thu, 19 Jul 2001, Derrick (Thrawn01) wrote:
> I setup an multidimetional array of data. ( I loading data base files into
> memory.)
> I wan't to sort the records by field 0
> But when I sort this referenced array ( multidimetio
I have a bunch of .html files that I want to add a style sheet to.
currently, the top of the html file has this:
name.JPG
so how do i search for
and replace it with
Any ideas?
thanks!
todd.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
make my day.
Thank you all!
Todd
aimatme.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
How can I tell if my webmaster has the CGI-Bin directory setup properly?
Thanks
Todd.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Another fun way is to use `reverse' and `numeric/string conversion' as
below.
perl -le 'print 0+reverse int 0+reverse "1.2.3.45"'
45
Best regards,
Todd
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
=~ /\.type=(.+?)(&|$)/;
print "\$&=$&\n";
($r2) = $url =~ /\.type=(.+?)[$&]/;
print "\$r1=$r1\n\$r2=$r2\n"
__DATA__
$&=.type=xmlrpc&
$r1=xmlrpc
$r2=x
-Todd
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
Seems it's related to a more general question stated as `Given 2
sequences, find longest common sub sequence'. Many algorithm books
have materials about this one.
-Todd
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
longest common sub
sequence of give 2 sequences'. Many algorithm books covers it.
-Todd
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
except when newval gets put in the file the quotes are
missing!! I see this:
hba0-SCSI-target-id-7-name=0011884455667733;
When I want to see this in the file:
hba0-SCSI-target-id-7-name="0011884455667733";
Can you help me?
Thanks,
Todd
--
To unsubscribe, e-mail: [EMAIL PR
file? That s/old/newcommand will not put my
quotes in the file??
Thanks,
Todd
"John Doe" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Todd am Mittwoch, 17. August 2005 16.16:
> > Hi,
> >
> > I am having a problem. I have a
they started learning perl,
it would be much appreciated. I know it's not a very hard language to learn,
or so I was told, but I'd like to know the best way to approach learning it.
Thanks,
Todd Sommer
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I am very confused.
About a week ago I completed a site that used perl and connected to a
MSSQL7 database. Everything worked hunky dory.
Now I have to start a new script but when I try do a select query it is
as if the site goes into a internal loop. If I run the query directly on
the DB it wo
This is the story
I have a form in which a user gives the name of a tournament and how
many participants there will be.
He clicks submit and the name of the tournament gets inserted into a
database.
So now with the number of participants that he supplied I need to create
a table with the corre
A bit off the topic but does anyone know how to or even if it is possible to
auto run the A drive (Stiffy discs).
TIA
Justin
Hi all.
I am in desparate need of advice.
I am running a NT4.0/IIS server and a MSSQL7 database. I ahve got Perl
working fine on the Web Server but I cannot perform simple function on
the Database. Below is my code and the different error's I recieve when
I alter the code. I hope it makes sence.
Hi all.
I am running a IIS webserver and a separate MSSQL database.
Could anyone please tell me what the connection string will look like to
access a database on a separate server.
This is what I have so far.
$dbh = DBI->connect("DBI:ODBC:database name","username");
This is obviously to conn
Hi
This is my connect string.
$dbh = DBI->connect("DBI:ODBC:ok","MITSOL\SQLExec");
This is the error message.
The specified CGI application misbehaved by not returning a complete set
of HTTP headers. The headers it did return are:
DBI->connect(ok) failed: [Microsoft][ODBC SQL Server Driver][SQ
Hi Folks
I am running a IIS server and MSSQL7, both on the same machine.
The database server is called JUSTIN. The database is called test and
the table is called test.
This is my connect string.
$dbh = DBI->connect('DBI:ODBC:test','');
This is my error.
CGI Error
The specified CGI applic
Hi All
I am trying to use flash on pages that include Perl scripting. I have
had a look at the code and I am not sure whether it is Java or
JavaScript.
Here is a example.
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array;
for(i=0;i<(a.length-2);i
Hi.
I am looking for a way to print just a certain in a browser. Is
this possible?
Kind Regards
Justin
test
Hi Folks.
I have a select statement that pulls out names and email addresses from
a database . These values then get represented in a multiple select box
with the name as the visual value and the email as the posted value.
What I want to do is collect all the email values into a array and then
Hi.
Can anyone tell me if with IIS on NT4.0 you need to create a cgi-bin or
if you set the file permissions through the IIS Manager?
Hi All.
Just curious if any of you people have had a look at the Perl Version of
ASP? I haven't looked at it in detail but I think it might be a nice new
way to approach web development. Maybe some of you guru's could have a
look and see what you think.
Here is the link with the info.
http:
Hi.
This is my problem, I am to short. But there is nothing that can be done
about that but maybe you all can help me out with this.
I have a NT4.0 IIS web server which hosts and executes my Perl scripts.
On a different machine and on a different domain I have a MSSQL7
database server in which I
;";
if (my $h = gethost($key)) {
my $name = $h->name;
print some stuff here -
} else {
print some other stuff here -
}
Todd Kennedy
Unix Administrator / System Aut
obj cant $method");
}
}
}
output:
1: Hello from ClassA->foo
2: Hello from ClassA->bar
3: ClassA=HASH(0x15d5218) cant baz
4: Hello from ClassB->foo
5: Hello from ClassB->bar
6: ClassB=HASH(0x1a8941c) cant baz
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
I'm using HTML::TableExtract to pull data from a web page.
the Table depth is always 6,1. It just sometimes is not there when
the page is brought up. How can I tell that the table is missing
using
this procedure. I'm trying to error trap this situation. It causes my
code to hang d
row[1],FIELD_DELIM,$$row[2],FIELD_DELIM;
print outfile $$row[5],FIELD_DELIM,$$row[6],FIELD_DELIM;
print outfile $$row[7],FIELD_DELIM,$$row[8],FIELD_DELIM;
print outfile "\n";
}
if ($$row[0] eq "No sorties
IM,$$row[0],FIELD_DELIM;
> print outfile $$row[1],FIELD_DELIM,$$row[2],FIELD_DELIM;
> print outfile $$row[5],FIELD_DELIM,$$row[6],FIELD_DELIM;
> print outfile $$row[7],FIELD_DELIM,$$row[8],FIELD_DELIM;
> print outfile "\n";
>
Greetings
I am looking for the easiest way to take the Longitude and Latitude of a
location and place a marker on a map.
Can anybody point me in the right direction.
Thank you
Todd Birkenholtz
I know redhat 9, and I think redhat 8, has its locale set by default to
en_US.UTF-8. I dont know much about locale settings, but somehow this
results is tests obsurely failing. Try setting your LANG variable to en_US:
$ export LANG=en_US
and try again. Another suggestion is to upgrade to Fedora.
I have serveral perl scripts that I've written seperately. Now I want
to run them sequentially. I don't want to cut and paste them into the
same file to be run. Makes reusablity a pain. Is there a method to do
this? I've tried searching but it appears I'm not using the correct
search words.
I'
I have no real working knowledge of perl. Teaching myself as I go.
I know what I want to do and I think perl can do most of it, it's
just finding the way.
These scripts are really not module worthy. They are simple scripts,
or run query, output file, read file, retrieve data based on file,
outp
If your writing something. I think you can output your die statement
into a "log file" using print [logfile] "Whatever message you want\n"
. You can also at certain points in your program output information
on the status of your program. It helps in debugging your program.
If it is a longrunnin
q,r,e): r
zzzr args: data1, data2
[EMAIL PROTECTED] temp]$ perl method.pl
Enter Qualifier: (q,r,e): x
error: "x" cannot be qualified
[EMAIL PROTECTED] temp]$ perl method.pl
Enter Qualifier: (q,r,e): e
zzze args: data1, data2
please read
perldoc perlreftut
and
perldoc perltoot
Enjoy!
Todd W.
http://waveright.homeip.net/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
ern/Class-Virtual-0.04/
Hopefully this will avoid a few bugs you were potentially about to write.
Todd W.
>
> On Wed, 2004-11-24 at 17:35, Michael Kraus wrote:
> > G'day...
> >
> > If a sublass has overrides a method in a superclass, and the subclasses
> > m
ile\n");
$req = HTTP::Request->new( GET => $file );
$cj->add_cookie_header( $req );
$res = $ua->request($req);
$cj->extract_cookies( $res );
#print("cookie headers:\n", $cj->as_string, "\n");
print("response headers:\n", $res->{_headers}->a
s that someone may veiw
> their empty cart and therefore no cookie will have been created.
>
> Anyway, my question is: how do I test to see if a coockie exists b 4 i try
> to read it ???
>
If ( UNIVERSAL::can( $newcook{'usrID'} => 'value' ) ) {
# ...
}
Todd
> Ha Ha even better, nice one Bob!
>
> Perl is just way to awesome :)
You can even get rid of the for:
print map "\t$_\n", @ARGV;
print map "$_\n", grep length() <= 3, @ARGV;
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
y $xp = XML::XPath->new( xml => $xml );
my $nodeset = $xp->find( '/rss/channel/item' );
foreach my $node ( $nodeset->get_nodelist ) {
print $xp->findvalue( './title', $node ), "\n";
}
[EMAIL PROTECTED] misc]$ perl parserss.pl
1 ZAR = AED (0.649063)
1
Retrieving http://ibihost1.com/nycdoh/web/html/rii.pl(200)
http://www.nyc.gov/html/doh/html/rii/index.html>forms
No forms on current page.
http://www.nyc.gov/html/doh/html/rii/index.html>
But you will probably have better luck using WWW::Mechanize.
Todd W.
--
To unsubscribe, e-mai
20Return%20of%20th
e%20Jedi?imdbid=tt0086190">
Star Wars: Episode VI - Return of the Jedi
Science Fiction
134
Heres the output:
C:\waveright\home\trwww\misc>perl movies.pl
Name: Star Wars: Episode IV - A New Hope
Info: http://...
Genre: Science Fiction
my $time = Time::Piece->strptime('0501201500','%y%m%d%H%M');
print $time->datetime, "\n";
Ctrl-D
2005-01-20T15:00:00
Install and read the docs for Time::Piece.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
passed to the db_dir parameter of the
new constructor.
I found the above at:
http://search.cpan.org/src/TJMATHER/Geo-PostalCode-0.06/INSTALL
There is most definitely supposed to be three db files, and ./load.pl
creates them.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For a
cally prevent its being installed via cpan, and that the author
> would create a custom data set, but leave the link to the census data
> in at leasty two places in the docs.
>
Youre right, it was confusing because of the variance from the standard
install method. Whenever I have trouble in
"Scott R. Godin" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Todd W wrote:
> > "Jason Balicki" <[EMAIL PROTECTED]> wrote in message
> > news:[EMAIL PROTECTED]
> >
> >>Hi,
> >>
> >>
st.)
That way you get a conditional check on if there are any rows to return at
all, and if there is, the do { } while ( ... ); will process the first row
fetched in the conditional before processing any more.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
buffers
my $gotit = "";
for (;;) {
return unless (defined ($gotit = $port->lookfor));
if ($gotit ne "") {
my ($found, $end) = $port->lastlook;
return $gotit.$found;
}
return if ($port->reset_error);
return if (Win32::GetTickCount() > $timeout);
}
}
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"Ron Wingfield" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Always contract for 1099 payment -- Never, never W2!
Can I ask why? I landed some telecommuting work I've been doing for about a
month now and the proprietor wants to move me to a W2...
he
WWW::Mechanize API to set the action with perl code before ->submit()ting
the form.
Either that or write some glue to get WWW::Mechanize to support javascript
;0).
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
keep it in memory?
use DBI;
use Text::CSV;
use LWP::Simple;
$dbh = DBI->connect( ... );
$sth = $dbh->prepare( 'INSERT INTO table VALUES (?, ?, ...)' )
foreach my $line ( split(/\n/, get( $url )) ) {
# split record in to fields... see Text::CSV
$sth->execute( @splitted_stuff );
ses NWS web services.
use ndfdXML;
my $xml = ndfdXML::NDFDgenByDay( ...args... );
You wont be able to tell from your source that you are calling network
enabled functions.
It also comes with programs called SOAPsh.pl and XMLRPCsh.pl You give them a
wsdl file or an endpoint and you can ma
ations .
>
> Is there a way to develop in perl this kind of applications?
>
Well, yes. But if you are going to do this, you are going to have get past
"concept" and roll up your sleeves and dig in to some code. I used
_Programming Web Services with Perl_
Todd W.
--
To unsu
"Jason Balicki" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Todd W <mailto:[EMAIL PROTECTED]> wrote:
> > Its a lot easier than that. If the WSDL file is good. SOAP::Lite
> > comes with a program called stubmaker.pl that takes a wsdl file as
> Todd W <mailto:[EMAIL PROTECTED]> wrote:
> > Its a lot easier than that. If the WSDL file is good. SOAP::Lite
> > comes with a program called stubmaker.pl that takes a wsdl file as an
> > argument and creates a module that you can use(). Then all you do is
> >
the right get_file_tag for every file, so
> MyProg::AudioFormats::Ogg::get_file_tag is called when an ogg file is
> used. And that is what i don't know how to do =)
>
What you describe is called a "Class Factory" and you may be able to use a
module or two from CPAN, the o
> );
>
or even just:
> my %mails = (
> From=> "$from",
> Subject => "$subject",
Message => join('', ),
> );
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"Peter Rabbitson" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> On Fri, Mar 11, 2005 at 12:45:10PM -0800, Wagner, David --- Senior
Programmer Analyst --- WGO wrote:
> > Peter Rabbitson wrote:
> > > Is there a quick way to initialize a number of variables at once?
> > > Something li
"Todd W" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>
> "Peter Rabbitson" <[EMAIL PROTECTED]> wrote in message
> news:[EMAIL PROTECTED]
> > On Fri, Mar 11, 2005 at 12:45:10PM -0800, Wagner, David --- Senior
> Programmer
ogramming Web Services with Perl_ excellently
written and easy to read.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"Gavin Henry" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> On Saturday 02 Apr 2005 04:29, Johnstone, Colin wrote:
> > Gidday All,
> >
> > I would like to use xml Parser to parse this chunk of xml (below) and
> > return the business unit name and id attributes for each of the eleme
"Ramprasad A Padmanabhan" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Hi all,
>Can anybody send me some examples on pagination with Templates
>
I have also had great sucess with DBIx::Pager. There arent any examples, but
the source is short and v
leine you refer to the package name of your
filter or handler, which usually should be a subclass of XML::SAX::Base.
You have to do your own state maintanance in the callbacks, but it is a very
lightweight solution. Ive handled 10's of gigabytes of XML with this method;
splitting files,
r) which is a
>
> I see no reason why you can't just use a hash lookup, which should be just
> as fast. I cannot tell from your code what property you are storing,
> which is also a red flag. Let's say that it is some interconnection cost:
>
> my %cost;
> [...]
Joining OTN (Oracle Technology Network) is free. It costs an e-mail
address and some contact information. It might generate a salesrep
call.Oracle Does contain a lot documentation.
http://www.oracle.com/technology/index.html
[EMAIL PROTECTED] wrote:
oracle.com
-Original Message-
F
"Karjala" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
> Has anyone used the "Java" module successfully in Perl?
State University of New York at Buffalo has:
http://www.perl.com/pub/a/2004/12/09/epayment.html
Todd W.
--
To unsubscribe,
says "When very many records are found..." What is the purpose
of your client program loading large recordsets? You should probably be
paging the data somehow.
It definitely works great with 5 million+ records on just okay hardware.
Todd W.
--
To unsubscribe, e-mail: [EM
85 Jun 23 12:26 driver.pl
drwxrwxr-x2 trwwwtrwww4096 Jun 23 12:12 shop
$ ls -l shop
total 4
-rw-rw-r-- 1 trwwwtrwww 741 Jun 23 12:04 machines
driver.pl is the program above. The file shop/machines is your csv file.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
rogram files/Internet Explorer/iexplore.exe';
my $tmp = 'C:/temp/iexml.xml';
getstore( $url . $pms, $tmp );
exec( qq|"$ie" $tmp| );
>
> Plese help me solving this issue, it's very urgent.
>
LOL
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
) = $line =~ m|(.+?)\t(.+?)\t(\d+)(.+)$|;
print( join(';', $part, $qty + 0, $descr), "\n" );
}
$ perl tab2csv.pl tab2csv.dat
45600062888;8;FLAT WASHER
228765329;1;GASKET
Enjoy,
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
uses an
> escape character ('Henry\'s').
>
> I'd like to be able to parse the following example ...
>
> 'George',123,'Harry\'s',,'Tuesday, Thursday'
> ...
You gave up too quick :-)
Theres also Text::CSV_XS which is configurab
t;use warnings" can't find warnings.pm)?
That means it is an old perl. Old perls didn't come with the warnings
pragma. You could only turn them off and on globally ($^W, I think).
If this is the case, I would not be suprised by any problem description you
may have.
Todd W.
--
is how to return a value from that batch script and
>>>> how to grab it in the perl file?
>>>
>>> What kind of value?
>>
>> It's the value of a variable generated in the batch script.
>
> That still doesn't say much...
Sure it does... t
), and free simulators (very, very useful).
An alternative solution to WAP is MDIP, a java based technology
(http://java.sun.com/products/midp/). This is the technology used in tools
like google maps mobile (http://www.google.com/gmm/index.html). For the sake
of simplification, one could call
;t have an openwave browser, it is not worth supporting). They have
>> an extensive developer resource found at http://developer.openwave.com/.
>> They have free SDKs (if you choose to use them... remember, these are
>> plain ol' web apps), and free simulators (very, very
hx's :)
Geo::Distance
(http://search.cpan.org/~bluefeet/Geo-Distance-0.11/Distance.pm)
It supports MySQL out of the box. Great module.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
"Mathew Snyder" <[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
>
>
> Todd W wrote:
>> "Mathew Snyder" <[EMAIL PROTECTED]> wrote in message
>> news:[EMAIL PROTECTED]
>>>
>>>
>>>> The most popular web
er, using two different pdf libraries
from CPAN.
I was very skeptical. Thought for sure there was no way it would work. I was
wrong. Worked flawlessly on WinXP Home and Win2k Server without a perl
interpreter installled.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
F
> replacement?
Sure. Just run your server in a mod_perl enabled apache:
http://search.cpan.org/~rjray/RPC-XML-0.59/lib/Apache/RPC/Server.pm
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
<[EMAIL PROTECTED]> wrote in message
news:[EMAIL PROTECTED]
Just a simple survey. As a perl fan, I'd like know what's make you are so
enthusiastic with perl. As for me, I vote the smart data structure design:)
the CPAN, regular expressions, and autovivification
Todd W.
--
T
Hello, I am trying to test for a NULL value in a string variable but am unable to
figure it out. I see that a RE of s/^\s// would test for a space at the beginning of a
variable or line, but I can't seem to figure out how to test for a NULL value. Can
anyone help me out?
Todd Kennedy
"Vasileios Pliasas" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi! I'm new to perl and I would like to ask you
> how does perl with html intergrades?
> How can I call a perl script from my web browser?
> I don't mean "... src=/../../test.pl"
> What's next?
What you do here is build a web based app. The palm already has a browser in
it, so no software installation is necessary. All the palm meeds is a url.
This wonf it every circumstance, but web apps are usually the way to go.
trwww
<[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMA
"Tara Calishain" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Is there SOAP::Lite documentation for Perl novices? Everything I've found
> so far seems
> to be written for more advanced users.
perl.com did a two parter. The articles there always give a good
"Conan Chai" <[EMAIL PROTECTED]> wrote in message
003301c1ea03$29edb410$0164a8c0@user1">news:003301c1ea03$29edb410$0164a8c0@user1...
hi,
>how do i read in the request from a browser?
Go get the Perl Cookbook. Theres a whole section on being a TCP server. Its
a little too complicated to discuss
n
perl that evaluate to false ( well '0', a stringified 0 (zero) ).
I read this in english as:
if the value of $Config{'print_blank_fields'} is true OR the value of
$Form{$field}is true then
so I would write it as:
if ( ($Config{'print_blank_fields'}) or ($F
#x27;print "123aaa" + 1;' # woah !!! prints 124 !!!
Actually, its even a little more complicated than that.
Todd Wade
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
weather) =
get('http://weather.noaa.gov/pub/data/forecasts/zone/oh/ohz021.txt');
($weather) or return('Today\'s weather conditions are currently
unavailable');
$weather =~ s/.*?\n\.[^.]*?\.{3}(.*?)\n\..*/$1/s;
$weather =~ tr/[A-Z]\n/[a-z] /;
$weather =~ s/( ?)(.)(.*?)\./$
nerate much of a
response.
We only answer questions that start like:
# BEGIN TEMPLATE POST #
Problem:
The following code does X:
(insert code here)
I thought it would do Y. What am I doing wrong?
# END TEMPLATE POST #
No code gives no replys most often.
Todd W
--
To unsubscrib
s-a-mail-boundary-435427'
}) or die("Error($sender) : $Mail::Sender::Error\n");
ref()s return value is used to make sure a valid Mail::Sender object has
been instantiated. Its returned value is not assigned to anything.
see perldoc -f ref
One way to get a reference to an anonymous
answer basis... =)
>
> - B
Id probably just use:
@myarray = split(/\s+/,$fContent[$i]);
shift( @myarray );
that will remove the unwanted element of the array for you.
Todd W
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
ree. Its neat to see it go the
other way.
Tell your programmer to go to the local bookshop and get a book called the
Perl Cookbook and have them read Chapters 9 through 13. It will be easy to
understand for any decent C programmer. Then they will be ready to write
your program in perl.
Todd W
ot;;
Somewhere at the top of scriptOnHost1.cgi say:
use CGI;
my($q) = CGI->new();
and then when you are ready, say:
print $q->redirect( "http://www.host2.com/scriptOnHost2.pl?name=$name"; );
and your all set.
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
"Sumit Babu" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hello All,
>
> I will be getting the files from different platforms (i.e. Unix or
> Windows). Is there a way i can automatically detect the line endings and
> accordingly use the chomp function t
I've been trying to undersand what mixins are and at the same time figuring
out how to make them easy to use. I just belched out this piece of code, but
I dont know if its doing anything special:
use warnings;
use strict;
package MyMixins;
sub SomeMethod {
my $obj = shift;
print( 'a ', ref
. ' \\' . "\n";
$usage .= ' --directory=/path/to/zip/files \\' . "\n";
$usage .= ' --loglevel=[DEBUG|INFO|WARN|ERROR|FATAL]' . "\n\n";
die( $usage );
}
Enjoy,
Todd W.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
I'm trying to retrieve the last word from an HTML table cell stored in
an array value.
All of the words are space delimited.
I've tried using split /\s/, $$row[1] but this doesn't always return the
last
word for me since there could be 2,3, or 4 words.
Could someone point me in the right direc
Thanks, for all the replys. Didn't know that you could simply reference
the last element of an array by using [-1]. This seemed like it could
be a one line task maybe two, just don't have command of the language.
Peter Scott wrote:
On Tue, 23 Aug 2005 06:17:11 -0700, I wrote:
$last_wor
t;
> Or:
>
> my ( $day ) = localtime =~ /(\S+)/;
> print "Today is $day.\n";
>
Or if you like code that is easier to extend:
use Time::Piece;
my $date = Time::Piece->new;
print( $date->day, "\n" ); # prints "Fri" today
Now pretend the boss
1 - 100 of 271 matches
Mail list logo
