I've figured out how to set a cookie, and I think I've retrieved it
successfully (no errors, at least), but now how do I manipulate it? I can't
figure out how to reference the cookie data.
Here's an example of my code:
use CGI;
$q = new CGI();
$myCookie = $q-cookie(-name='Fyre',
Oops! Sent this direct instead of to the list :(
--- Maximilian Ronniger [EMAIL PROTECTED] wrote:
$out= $data,
As Brett pointed out, this line is in error. Try this:
$out-p( $data );
Also, your read_document sub has a slight problem:
return $data;
close SOURCE;
This
Hello -
I'm trying to use server side includes to invoke a perl script that just
writes to a file and I want to be able to pass a variable to that script,
but I'm running into problems. I know how to use the #set function to
define the variable, but I'm stumped on how to get it passed to the
OK, I'm still having a problem.
I still can't seem to manipulate the cookie data. Say I want to record
someone's name and then print out hello so-and-so when they return to my
site. (That's not what this is actually for, but it's the same idea.) Why
doesn't the code below work on the second
--- Stokes, John [EMAIL PROTECTED] wrote:
OK, I'm still having a problem.
I still can't seem to manipulate the cookie data. Say I want to record
someone's name and then print out hello so-and-so when they return to my
site. (That's not what this is actually for, but it's the same idea.) Why
I've read the FAQ and I'm not sure to whom I should address this question.
I joined the mailing list only a few days ago, yet I have answered quite a few
questions. I
certainly don't want to seem like a know-it-all and dominate the list. Should I
wait longer
before responding to ensure that
G'day,
I've got a problem with a script I'm writing which will run under mod_perl. It
accepts a list of urls and a list of strings and returns a list of which urls
contain which strings. That's not complicated and I got it working fairly
quickly without any CGI involved.
Then I tried to
In the mod_perl_traps page, when it refers to regexes only being compiled once, it is
specifically referring to regexes that use the /o modifier:
my $x =~ /$somevar/o;
In regular Perl (and mod_perl), that causes the pattern to only be compiled once. If
the value of
$somevar changes, the
Is there a way to perform an automatic POST ?
David ([EMAIL PROTECTED])
Paul [EMAIL PROTECTED] writes:
BTW, this is another use of the same sort of trick as
{ local $/ = undef;
$file = FH; # slurp the whole file into $file
}
which is more efficient than
while(FH) { $file .= $_ }
or
$file = join '', FH;
Still, I have a coworker who
Jeff Pinyan [EMAIL PROTECTED] writes:
On May 31, Pedro A Reche Gallardo said:
How can I split a string of caracters -any but blank spaces- into
the individual caracters?
So you want to split what's up, doc? into
@chars = qw( w h a t ' s u p , d o c ? );
That is, every
Hello,
i will connect from Unix ( Client HP -UX OS) to a Microsoft SQL 7.0 database
(SQL-Server Windows NT OS).
I have installed the DBI Module, but I don' t know, which DBD - Module I am
installing
additionally??
Best Regards
Hasan
--
Machen Sie Ihr Hobby zu Geld bei unserem Partner 11!
On Fri, 1 Jun 2001 [EMAIL PROTECTED] wrote:
i will connect from Unix ( Client HP -UX OS) to a Microsoft SQL 7.0 database
(SQL-Server Windows NT OS).
I have installed the DBI Module, but I don' t know, which DBD - Module I am
installing
additionally??
You might want to look at Free TDS
Daft question, but have you looked at fetchmail?
It worked for me, and I can't see why you would want to re-invent the
wheel.
Gary
On Friday 01 June 2001 1:05 am, KeN ClarK wrote:
Want to retrieve email from ISP pop server and view it locally.
running sendmail. use PINE.
Found module at
Fetchmail is working wonderfully, but I am going to give Mail::Audit a go.
I appreciate everyone's advice.
Ken
On 1 Jun 2001, Piers Cawley wrote:
Paul Johnson [EMAIL PROTECTED] writes:
On Thu, May 31, 2001 at 08:58:40PM -0400, KeN ClarK wrote:
I haven't done much of anything yet. But of
On Thursday 31 May 2001 22:30, Ken wrote:
If you're reading this input from a file maybe try using a chomp?
chomp isn't always good. It's better to use
s/\r?\n?$//;
or even
s/\s*$//;
--
Ondrej Par
Internet Securities
Software Engineer
e-mail: [EMAIL PROTECTED]
Phone: +420 2 222 543 45
Ondrej == Ondrej Par [EMAIL PROTECTED] writes:
Ondrej On Thursday 31 May 2001 22:30, Ken wrote:
If you're reading this input from a file maybe try using a chomp?
Ondrej chomp isn't always good. It's better to use
Ondrej s/\r?\n?$//;
Ondrej or even
Ondrej s/\s*$//;
Let's not introduce FUD
Hey all. I'm fairly new to perl - I have to look almost every command up in
the book still. I've volunteered to write a script to convert some C structs
into C++ classes. For example:
Input:
struct my_servers_command_args {
int foo;
int bar;
};
typedef struct my_servers_command_args
Sally/Kevin, :)
The short answer is that Exporter is used when creating Perl modules. It
allows other programs/modules to import functions and variables, either
explicitly or implicitly, into their own namespace.
Long answer -- see 'perldoc Exporter' on most systems with Perl
The problem is solved. It was an unwanted \r that had snuck by
my regexp.
I think I was probably half brain dead yesterday (some would
not qualify it that much :-)
Thanks to the list. You guys/gals are great. Perl is awesome.
I used to fiddle in APL and thought
that was way cool. Perl is
Hello All,
I am trying to connect to the Wells Fargo online bank using the LWP and open
SSL modules and am having trouble getting past the Authenticating User
screen. I was hopeing for a way to have the LWP useragent follow the
refreash meta tag the same way it does for a redirect. Does
Hi Michiel,
Look at sleep()
perldoc -f sleep
Cheers,
Kevin
On Fri, Jun 01, 2001 at 01:53:17PM +0200, [EMAIL PROTECTED] ([EMAIL PROTECTED])
spew-ed forth:
Hi,
Is it possible to use a commando in Perl that will wait for example 50
seconds an then will continue ?
Thanks in advance
On Fri, Jun 01, 2001 at 01:53:17PM +0200, [EMAIL PROTECTED] wrote:
Is it possible to use a commando in Perl that will wait for example 50
seconds an then will continue ?
Yes -- sleep(50)
See perldoc -f sleep for more information.
Walt
Hi!
I am tying to use the Perl2exe utility but am getting an error : Invalid
Platform :win32 . I am running Win2000 and installed the exact versions
recommended for the Perl I am using. Any suggestions on this will be great
help.
Thanks,
Prachi
On Fri, Jun 01, 2001 at 01:53:17PM +0200, [EMAIL PROTECTED] wrote:
Hi,
Is it possible to use a commando in Perl that will wait for example 50
seconds an then will continue ?
sleep 50;
That's assuming you meant command; a commando could probably do
whatever the hell he wanted on my
--- Piers Cawley [EMAIL PROTECTED] wrote:
Paul [EMAIL PROTECTED] writes:
BTW, this is another use of the same sort of trick as
{ local $/ = undef;
$file = FH; # slurp the whole file into $file
}
which is more efficient than
while(FH) { $file .= $_ }
or
[snipped]
How do I get HTTP::Date? Anyone?
Hi Dan,
What version of libwww did you install? I just checked mine and the module
is there. Did you receive any errors during the build? If so what were they?
Ron
Unsure what you are really after? Some more info, like are they
entering: 01 Jun 2001, 15:15 as the time to do the processing or 30 min to
run in 30 minutes?
Wags ;)
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 01, 2001 04:19
Hi people,
Has anyone been able to conceive some kind of licencing scheme in
Perl ?
That is, I want to deploy a Perl program that the customer will only be
able to
use for 30-60-90-30n days. This causes great problem to implement in Perl
since
the customer could simply comment-out the
I'll be interested in any other solutions people have because I've got this
going in a couple of programs now... Check out Time::timelocal(). It allows
you to pass inthe results of localtime and bet back the seconds since the
epoch. Since the results of localtime are things that you can
You're right. But in my job, I often process DOS files on Linux server, thus
I learned to be extremely careful with line endings :)
On Friday 01 June 2001 15:15, Randal L. Schwartz wrote:
Ondrej == Ondrej Par [EMAIL PROTECTED] writes:
Ondrej On Thursday 31 May 2001 22:30, Ken wrote:
If
I am trying to use a package to hold all of my subs. I am calling the package in my
main program:
use control;
In control.pm I have package control; at the top and 1; at the bottom. This is what
the problematic area looks like:
%USERINFO = control::memUserInfo($user); # Returns
Ondrej == Ondrej Par [EMAIL PROTECTED] writes:
Ondrej You're right. But in my job, I often process DOS files on
Ondrej Linux server, thus I learned to be extremely careful with line
Ondrej endings :)
But that's the point. You're in an unusual situation. Please don't
say better without also
ok, so i know how to write to an existing file, how do i create the file,
if it doesn't exist? i want to do something like,
pseudocode -- ewww!
if the file exists{
write to it
}
if the file does not exist{
create it
write to it
}
close the file
Many thanks, I feel a litle stupid for not thinking of that myself :-)
And I'm glad that I joined this list, if I had asked that question in one of
the other lists, or in the news-groups I would have to jump in the water to
douse the flames ;-)
This list is simply the best thanks to people like
open(FILEHANDLE, filename)
the '' indicates open for append, or create if doesn't exist.
checkout 'perldoc -f open' for all the fun things you can do with open.
Andrew
-Original Message-
From: Nichole Bialczyk [mailto:[EMAIL PROTECTED]]
Sent: Friday, June 01, 2001 12:10 PM
To: [EMAIL
On Fri, Jun 01, 2001 at 11:09:35AM -0500, Nichole Bialczyk wrote:
: ok, so i know how to write to an existing file, how do i create the file,
: if it doesn't exist? i want to do something like,
Thankfully, when you open a file for apending (using ' somefile'),
it will create the file if it
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
ok, so i know how to write to an existing file, how do i create the
file, if it doesn't exist? i want to do something like,
pseudocode -- ewww!
LOL!!! =o)
if the file exists{
write to it
}
if the file does not exist{
create
--- Andrew Prueser [EMAIL PROTECTED] wrote:
open(FILEHANDLE, filename)
the '' indicates open for append, or create if doesn't exist.
Oops -- you just blasted the file!
use two:
open FILEHANDLE, filename or die $!;
checkout 'perldoc -f open' for all the fun things you can do with
Oops, I think you are a bit confused...
'' will overwrite the file NOT append.
You want '' to append.
Brent
Andrew Prueser
Can someone give me an example of using this module to connect to my cisco
devices?
thanks, all.
I am using activeperl 5.6.1 on a Windows NT box. I have recently installed
the DBI module with the oracle DBD driver. However when i try to use the
module I get a error that reads like this
install_driver(Oracle) failed: Can't load
'C:/Perl/site/lib/auto/DBD/Oracle/Oracle.dll' for module
At 08:38 AM 6/1/2001 -0600, Dan Egli wrote:
I was using the CPAN module to install a couple of modules that I needed for
programs, and I keep noticing that it says:
Going to read /root/.cpan/sources/modules/02packages.details.txt.gz
Database was generated on Wed, 30 May 2001 18:59:02 GMT
On Fri, Jun 01, 2001 at 10:45:31AM -0500, David Michael wrote:
I am trying to use a package to hold all of my subs. I am calling the package in my
main program:
use control;
You should be aware that all lowercase module names are reserved for Perl
pragmas. This is not the source of your
Watch: I'll quote directly from my server:
[root@shortcircuit /root]# perl -MCPAN -e 'install HTTP::Date'
Can't locate object method install via package HTTP::Date (perhaps you
forgot to load HTTP::Date?) at -e line 1.
[root@shortcircuit /root]#
- Original Message -
From: Peter Scott
On Jun 1, [EMAIL PROTECTED] said:
I want to take the output of a df -k command and take the first column
and put it into a nice array or list that I can then later put each
seperate line into a command. I have tried a few different versions and
can't figure it out. I'm new to this and I'm sure
At 11:15 AM 6/1/2001 -0600, Dan Egli wrote:
[root@shortcircuit /root]# perl -MCPAN -e 'install HTTP::Date'
Can't locate object method install via package HTTP::Date (perhaps you
forgot to load HTTP::Date?) at -e line 1.
Sorry, I had to ask.
You have some strange problem with your CPAN module.
OK first of all, I'm a total perl newbie. I've been programming in VB for a
couple years, but I'm gradutating into perl. May god have mercy on us all.
My question is more conceptual:
I have two comma delimited text files, that are essentially database tables.
One is materials, one is orders.
On Fri, 1 Jun 2001 [EMAIL PROTECTED] wrote:
OK first of all, I'm a total perl newbie. I've been programming in VB for a
couple years, but I'm gradutating into perl. May god have mercy on us all.
Congratulations. Once you start working with Perl, VB will seem extremely
chidlish. :-)
My
It only seems to happen on certain modules. I'm suspecting it's more a
damaged perl install. this is a RH 7.1 box and I downloaded/installed perl
5.6.1 on it to replace the 5.6.0 that it came with. I'm re-running the make
install from the perl build dir (Thankfully I saved it) and when it's done
On Fri, Jun 01, 2001 at 01:16:45PM -0400, [EMAIL PROTECTED] wrote:
Please help.
foreach $_ (`df`){
($fs, $kb, $used, $avail, $cap, $mount) = split ( ,/(\S+\\/n));
print $fs if /dsk/;
}
This doesn't answer your asked question, but you may want to consider using
one of the various
I have this program that recurses through a directory structure building
Default.htm files. The idea here was to quickly generate a bunch of these
things to replace the default index listing you normally see. The part
that's giving me trouble is the navbar that should have a nested structure
Dan Egli wrote:
: It's odd tho. I type:
:
: perl -MCPAN -e 'install GD' and it works fine. Only with thinks like
: HTTP::Date and Data::Dumper does it work. I'm not sure whats up.
I get the same result with Data::Dumper 5.6.0 unless I quote
the module name:
perl -MCPAN -e 'install
you might also find the unix command 'touch' useful. read the man page
for specifics.
___
[EMAIL PROTECTED]
http://www.quantifier.org
___
If I had any humility I would be perfect.
--
I replied:
: Dan Egli wrote:
: : It's odd tho. I type:
: :
: : perl -MCPAN -e 'install GD' and it works fine. Only with thinks like
: : HTTP::Date and Data::Dumper does it work. I'm not sure whats up.
:
: I get the same result with Data::Dumper 5.6.0 unless I quote
: the module name:
:
:
Good afternoon,
Is there a way to combine the last two statements?
#!/usr/bin/perl -w
$sort_order =0;
$sort_type = ($sort_order) ? 'Newest First' : 'Oldest First';
# are the () optional?
print $sort_type;
##this does not work
print ($sort_order) ? 'Newest First' : 'Oldest First';
At 02:15 PM 6/1/01 -0400, Timothy Kimball wrote:
: I get the same result with Data::Dumper 5.6.0 unless I quote
: the module name:
:
: perl -MCPAN -e 'install Data::Dumper'
To elaborate, now that I've had a minute to think about it: when perl
sees install GD, it takes GD as a bareword (i.e., an
Please some body help me .
I download the latest Unix version from CPAN then I followed as:
gzip -dc latest.tar.gz | tar xvf -
output from the above command:
x perl-5.6.1
x perl-5.6.1/AUTHORS, 27914 bytes, 55 media blocks.
x perl-5.6.1/Artistic, 6111 bytes, 12 media blocks.
x
Remove the ()'s and it works.
For the 0's:
printf On %02d/%02d/%04d At %02d:%02d you wrote:br\n\n, $month, $mday,
$year, $hour, $min;
see perldoc -f printf for more info.
- Original Message -
From: David Gilden [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, June 01, 2001 1:05 PM
On Fri, Jun 01, 2001 at 03:05:59PM -0400, David Gilden wrote:
[snip -- was there a question about '?:' ?]
printf question--
### get time
my($sec, $min, $hour, $mday, $month, $year) = (localtime)[0..5];
$year += 1900;
$mday = 0 . $mday if $mday 10;
$month++; # perl counts from -1 on
On Jun 1, David Gilden said:
$sort_order =0;
$sort_type = ($sort_order) ? 'Newest First' : 'Oldest First';
# are the () optional?
In this case, yes, you don't need those parens.
print ($sort_order) ? 'Newest First' : 'Oldest First';
Remove the parens, or add them around the entire argument
I'll just answer the 'other stuff'.
##this does not work
print ($sort_order) ? 'Newest First' : 'Oldest First';
Perl sees this as a function() call followed by the rest.
Instead, do:
print $sort_order ? 'Newest First' : 'Oldest First';
In general, Perl works to minimize the number
David Gilden wrote:
Is there a way to combine the last two statements?
[...]
$sort_type = ($sort_order) ? 'Newest First' : 'Oldest First';
# are the () optional?
print $sort_type;
print $sort_order ? 'Newest First' : 'Oldest First';
or
print( $sort_order ? 'Newest First'
David Gilden wrote:: ##this does not work
:
: print ($sort_order) ? 'Newest First' : 'Oldest First';
Perl thinks you're doing this:
print($sort_order) ? 'Newest First' : 'Oldest First';
that is, it's taking $sort_order as an argument to print().
Either remove the parens:
print
i understand how to open and create files, but let's say that i want to
open several files and insert them all into one large file. how would i
do that?
thanks, nichole
Peter Scott wrote:
: Okay, I geddit... it's because HTTP::Date is required by CPAN.pm (perldoc
: -m CPAN | grep -i http). So perl sees the module name as being one it
: already knows of and turns it into the indirect object syntax as you say.
OK, that makes more sense. (I wasn't entirely
it sounds like your download was incomplete. You may want to try
downloading it again.
FYI, AIX 4.3.3 comes with perl; other binary distributions are
available from various places.
-s-
At 3:11 PM -0400 6/1/01, Swappan Das wrote:
Please some body help me .
I download the latest Unix
- Original Message -
From: Nichole Bialczyk [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Friday, June 01, 2001 9:30 PM
Subject: append a file to another file
i understand how to open and create files, but let's say that i want to
open several files and insert them all into one large
i think i found it. copy(file1, file2);
that was too easy
On Fri, Jun 01, 2001 at 02:30:53PM -0500, Nichole Bialczyk wrote:
i understand how to open and create files, but let's say that i want to
open several files and insert them all into one large file. how would i
do that?
thanks,
from a newbie to another newbie something like:
[snip]
my $newfile = newfile name # can get from parameters if you so desire
my $line;
unless(open( FILE, $newfile ) )
{
# do fail stuff
}
foreach my $file ( @files ) # Setup @files with the list of filenames you
want to open
{
# You may
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
i understand how to open and create files, but let's say that i want
to open several files and insert them all into one large file. how
would i do that?
At the simplest level, let's assume you have the filenames in an array
named @files, and want
well, so the copy didn't work. it required me to place 'use File::Copy;'
in my script, but i got an error message.
to be more specific, i want to do this: read and delete all of the lines
from a log file, except for the first one. i keep thinking grep, but
isn't that only a unix command? and
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
to be more specific, i want to do this: read and delete all of the
lines from a log file, except for the first one.
open IN, $file or die $file:$!;
IN;# throw away first line;
print IN; # print the rest of the file.
so how do i delete the lines that i read in? (keeping the first one so
that the file still exists)
On Fri, Jun 01, 2001 at 02:08:25PM -0700, Paul wrote:
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
to be more specific, i want to do this: read and delete all of the
lines from a log
So anycrack could write to it prior to it being 'moved' right? And then
you have non-world-writeable data under the premise it is untampered.
What's the difference?
Ken
On Fri, 1 Jun 2001, Nichole Bialczyk wrote:
well, so the copy didn't work. it required me to place 'use File::Copy;'
in my
On Fri, Jun 01, 2001 at 04:17:06PM -0500, Nichole Bialczyk wrote:
so how do i delete the lines that i read in? (keeping the first one so
that the file still exists)
On Fri, Jun 01, 2001 at 02:08:25PM -0700, Paul wrote:
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
to be more
On Fri, Jun 01, 2001 at 02:39:31PM -0700, Bill Stilwell wrote:
How embarrasing. My first post and I left out a semi-colon. It's
there now.
my $new_file;
open IN, $file or die $file: $!\n;
while (IN) {
if ($. == 1) {
$new_file = $_;
} else {
# your processing goes here
apparently it makes him feel better about it knowing that there is only a
24 hour period that it could be tampered with. i can't imagine anyone
*wanting* to tamper with our data, but apparently there is a lot of
rivalry in the university system and he wants to limit what they have
access to.
oh, thank you so much! i was really getting down to the wire here.
On Fri, Jun 01, 2001 at 09:30:01PM -0400, Chas Owens wrote:
I can think of two ways:
if your system implements truncate you can say:
open IN, $file or die $file:$!;
$temp = IN;# don't throw away first line;
I can think of two ways:
if your system implements truncate you can say:
open IN, $file or die $file:$!;
$temp = IN;# don't throw away first line;
print IN; # print the rest of the file.
truncate IN, length($temp); # only keep the first length($temp) bytes
or
First post, quick question:
I've got an array of hashes that I'm defining the most basic way I can...
my $gSeasonID;
my @season_list = '';
while (@fields = $sth-fetchrow_array) {
$gSeasonID = $fields[0];
$season_list[$gSeasonID]{number} = $fields[1];
First ugly thought goes like this:
my @season_list = '';
while (my @fields = $sth-fetchrow_array) {
for (my $i = 1; $i @fields; $i++) {
$season_list[$fields[0]]{('number', 'title', 'active')[$i]} = $fields[$i];
}
Second thought is:
Why not use $sth-fetchrow_hashref? The only
On Fri, Jun 01, 2001 at 03:29:43PM -0700, Chuck Ivy wrote:
First post, quick question:
I've got an array of hashes that I'm defining the most basic way I can...
my $gSeasonID;
my @season_list = '';
while (@fields = $sth-fetchrow_array) {
$gSeasonID = $fields[0];
On Fri, Jun 01, 2001 at 03:29:43PM -0700, Chuck Ivy wrote:
First post, quick question:
I've got an array of hashes that I'm defining the most basic way I can...
my $gSeasonID;
my @season_list = '';
while (@fields = $sth-fetchrow_array) {
$gSeasonID = $fields[0];
--- Nichole Bialczyk [EMAIL PROTECTED] wrote:
so how do i delete the lines that i read in? (keeping the first one
so that the file still exists)
In the code segment I posted below, the first thig I do after openeing
the file is read a line from it -- which I do nothing with, so it gets
thrown
I want to load a module if it is there or set a flag to turn of (or
modify) code that uses the module if it is not there. Example:
BEGIN FILE
#!/usr/bin/perl
my $gtk = eval use Gtk ; return 1;
if ($gtk) {
Gtk-init;
my $window = new Gtk::Window;
$window-add(new Gtk::Label(Hello
The difference is his boss feels (emphasis on feels) safer.
On 01 Jun 2001 17:39:31 -0400, KeN ClarK wrote:
So anycrack could write to it prior to it being 'moved' right? And then
you have non-world-writeable data under the premise it is untampered.
What's the difference?
Ken
On Fri, 1
I want to add functionality to a script using a module, but not do not
want to require the modules use. It looks like the following code
works, but is it the best way to achieve my goal (yes, I know TMTOWTDI)?
START CODE
#!/usr/bin/perl -w
use Gtk -init;
use DBI;
$xls = eval use
David,
David E Culp - RR wrote:
Is there a way to perform an automatic POST ?
This is a pretty wide-open question. I think the most common way
to handle POSTing is via HTTP::Request (see its manpage and the
other LWP manpages). Most uses are essentially trivial. I don't
know what you mean by
Ich weis immernoch nicht, wie ich jetzt ein Bild mit Hilfe von Perl uploaden
kann. Der Code da unten erzeugt immer nen Fehler:
Software error:
syntax error at singles.pl line 266, near /([\w.-]+)/;
Execution of singles.pl aborted due to compilation errors.
Welchen Content Type muss ich dann in
At 02:50 AM 6/2/01 +, Bernhard wrote:
syntax error at singles.pl line 266, near /([\w.-]+)/;
Execution of singles.pl aborted due to compilation errors.
Sorry, typo on that line, should be:
my ($name) = ($fh =~ /([\w.-]+)/);
Welchen Content Type muss ich dann in der form nochmal
wouldn't suppose any of you know the syntax to put an audible beep in a
print line in perl?
~kc~
On Fri, 1 Jun 2001, ~kc~ wrote:
wouldn't suppose any of you know the syntax to put an audible beep in
a print line in perl?
\a is the bell character, but it doesn't always work. For example, my
terminal ignores the bell character for some reason I've never determined,
so it doesn't make any
Is one of these preferred over the other?
open(FROMFILE,$filename);
while(FROMFILE){
push(@everyline, $_);
}
$longstring = join(,@everyline);
@oldentries = split(/!--NEWENTRY--/,$longstring);
---OR---
open(FROMFILE,$filename);
while (FROMFILE){
Greetings,
This unenlightened neophyte finds that this problem is beyond his humble
understanding and seeks guidance from those more wise in the mysterious
ways of Perl. The following short program was offered for this one's
edification but proves beyond his grasp.
#1/usr/bin/perl -w
On Jun 1, [EMAIL PROTECTED] said:
$i = 1;
$power = 1;
print Input a number:\n;
chomp ( $x = STDIN );
print Input the value you want the number raised to\n;
chomp ( $y = STDIN) ;
while ( $i= $y ) {
$power *= $x;
++ $i;
}
This loop is basically a for-loop in extended form.
I have a file that for 1/2 the month has one space between every word, I use
this to split. However the other half the month it has two spaces in one
place and all the rest have one space.
Using s/ /#/g to change all spaces to # so I can use that for the split
doesn't work. How can I get the
99 matches
Mail list logo
