Gary Stainburn wrote:
Hi all,
I've got a project where I need to develop an single-board-computer based
network device using packet modems connected to Amateur Radio equipment and
I'm trying to develop a simulator in Perl under Linux and I've got a few
questions.
Basically I'm going
Gary Stainburn wrote:
Hi Jon,
On Tuesday 12 March 2002 11:54 am, Jon Molin wrote:
Gary Stainburn wrote:
Hi all,
I've got a project where I need to develop an single-board-computer based
network device using packet modems connected to Amateur Radio equipment
and I'm trying
FORIZS Zsolt wrote:
How do i delete some words in a string, like with SED in Unix.
please give me some ideas.
use a regexp as in sed
my $string = this string sucks;
$string =~ s/sucks/blows/;
look at 'perldoc perlre'
/jon
cu zsolt
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
Troy May wrote:
Hello,
How do you write to the beginning of a file? I see only 3 options to open a
file: to read, to overwrite, and to append to the end of the file.
If you think about the file as an array with one char on each index:
my @string = split (/|/, this is a test);
now
Anette Seiler wrote:
Hi Ken,
I encountered exactly the same problem today: How to read a file
AND change something in it? I was not able to do both of them at
the same time.
I am sure there is a more correct way to do it, but my solution (in
the spirit of TIMTOWTDI) was to write to a
Mohammed A. Hassan wrote:
Well , I want to do this this on UNIX
Jan Gruber [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Hi !
On Wednesday 06 March 2002 09:21 am, you wrote:
How can I scheduler a cgi script?
Depends on the platform you are
Jenda Krynicky wrote:
[snip]
You could use fetchall_arrayref(), but I would not recomend doing
that unless you are really sure the resultset is small enough. That
would slurp all the data to memory of YOUR process with quite
some overhead.
Are there any benchmarks on this? Becouse i
The data is in the %ENV hash, the key is QUERY_STRING but it only works
with GET and can give you some problem with GET as well. What I'd
recomend is some reading about the CGI module, either the 'perldoc CGI',
online info or the chapter about cgi in learning perl.
/Jon
farshad fekri nejat
tom poe wrote:
Hi: I have a script that connects to my PostgreSQL7.0.3 OK.
Now, I also have text files that contain:
column_name: data
I want to open the database, open the file, read each line that has a
column_name followed by a colon and space, then the data, and move it
to the
Daniel J. Tomso wrote:
Greetings.
I'm matching a pattern against a long string, and I want to examine each
occurrence of the match. I know that $ stores the match, but is there
a way to store EVERY match in the string, and then look at them?
Example:
$str = This is a very long
walter valenti wrote:
Hi,
i've got a binary executable file, that give a result on STDOUT (shell).
I'm reditected STDOUT on a file as:
use Getopt::Long;
open(STDOUT,/usr/local/netsaint/var/tmp) || die$!\n;
GetOptions(p=i = \$port);
$|=1;
system(/usr/local/netsaint/libexec/check_http
Derrick Wippler wrote:
Can anyone tell me why print $rec-[4] prints
but print $recs[0]-[4] does not print a thing ?
I've confimed the data, the first row in the fourth column is an F
$rec-[4] prints it, but $recs[0]-[4] does not !!! ARG @#@!#!!!@@!!@!!
PS: I'm using DBI, my DBI
Tor Hildrum wrote:
#!/usr/bin/perl -w
use strict;
use warnings;
print What file do you want to open?\n;
chomp(my $openfile = STDIN);
print What file do you want to write to?\n;
chomp(my $outfile = STDIN);
print What do you want to replace in the first file?\n;
chomp(my $pattern =
John W. Krahn wrote:
Jon Molin wrote:
Jan Gruber wrote:
Hi, Jon list !
On Friday 01 March 2002 11:29 am, you wrote:
Hi list!
I've always thought there's a difference between for and foreach, that
for uses copies and foreach not. But there's no diff
norishaam wrote:
Hi,
I've been trying to figure out the above, maybe someone has some
experience...Below is the scenario:-
1. I have an executable, update.exe, that can run locally to update the
service pack.
2. I am trying to write a perl script to have this update.exe to run
Dave Adams wrote:
Hi there,
I have a problem which I would like to use perl to resolve, however I'm not
sure if it is possible to do.
I need to scan a file and check some conditions, first if field 9 is
duplicated on 1 or more rows, then I need to check field 10 to see which is
the
Hi list!
I've always thought there's a difference between for and foreach, that
for uses copies and foreach not. But there's no diff is there?
my @a = (1, 2, 3 , 4 , 5);
$_ += 2 for (@a);
print @a\n;
3 4 5 6 7
my @a = (1, 2, 3 , 4 , 5);
$_ += 2 foreach (@a);
print @a\n;
3 4 5 6 7
why isn't
Jan Gruber wrote:
Hi, Jon list !
On Friday 01 March 2002 11:29 am, you wrote:
Hi list!
I've always thought there's a difference between for and foreach, that
for uses copies and foreach not. But there's no diff is there?
AFAIK there's not really a difference between these two.
4Hi list,
I've been trying to install Crypt::RSA for a couple of hours now and
I've run out of ideas.
perl Makefile.PL and make runs smoothly but make test shows this:
PARI: *** precision loss in truncation at
/usr/lib/perl5/site_perl/Crypt/Primes.pm line 580.
on that line of
Jon Molin wrote:
Hi list,
I've been trying to install Crypt::RSA for a couple of hours now and
I've run out of ideas.
perl Makefile.PL and make runs smoothly but make test shows this:
PARI: *** precision loss in truncation at
/usr/lib/perl5/site_perl/Crypt/Primes.pm line 580
svensson wrote:
Is there any way I can have a script producing a bit of html code on a
remote computer
and then be able to make a call to that in a HTML document which then will
similair to img src=http://something.com/xx.cgi?sdfsdfsdf;
If it can be done let me know how
yes it is.
the html and
merge it. otherwise i'd go for a frame
the cgi list is here:
http://lists.cpan.org/showlist.cgi?name=beginners-cgi
/jon
Jon Molin [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
svensson wrote:
Is there any way I can have a script p
Iain Wallace wrote:
Hi,
I was wondering if any one can help me. Is there any command in perl that will let
me match a line only if the next line
fufills a certain condition, without doing a double loop over the file?
My data is like this
Variable1 number number number
Variable1
Rahul Garg wrote:
Well, I also dont know whether its possible or not ?
Any suggestions.
I hope you won't keep replying to your own question every second hour,
saying that you don't know the answer
/jon
- Original Message
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
kitti wrote:
how to convert array to integer
$array[0]=5
$array[1]=6
$array[2]=7
$array[3]=8
one way to do it is:
my @array = (5, 6, 7, 8);
my $some_val;
$some_val .= $_ for (@array);
another is:
my @array = (5, 6, 7, 8);
my $some_val = @array;
$some_val =~ s/[^\d]//g;
a third is
anthony wrote:
Hi,
I have an upload script, and i want to check the file size before it
uploads.
Any suggestion is appreciated
Anthony
here's some old code that does that, might be something built-in in
CGI.pm as well:
my $tempFile = CGI::tmpFileName($img_filename);
my
is this homework? Your other posts looks very homeworkish...
/jon
Bruce Ambraal wrote:
Hi
How do you do it
Give me two different methods in subroutines, that will:
match together all of its parameters into on large list.
Many thanks to the following people: Brett, Micheal F,
Dennis G. Wicks wrote:
Thanks! That works great!
But!!!:
[root@iodine root]# man perlvars
No manual entry for perlvars
[root@iodine root]# perldoc perlvars
No documentation found for perlvars.
[root@iodine root]#
it's perldoc perlvar
This smells homework!
/jon
Bruce Ambraal wrote:
Hi
I have done (b) for coding see below, could someone assist with
(a) (b) (d)
#!/usr/local/bin/perl -w
my $num_rows;
my $i;
my $r;
$num_rows = STDIN;
for ($r = 1; $r = $num_rows; $r++)
{
for ($i=1; $i= $r; $i++)
rory oconnor wrote:
I am using LWP to hit a page and save the source to a file. But before
it saves it I want it to strip out the client id from the urls. They
are always in the same format:
client= # 8 digits and then ampersand
so what I want to strip out is stuff like:
sorry about that answer, too early in the morning to answer
questions...i even thought it was the newest.
I wish I could go back to sleep
/jon
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Try removing all cookies you have in your browser and set it to ask for
allowing cookies, then you'll really see if there are any cookies
/Jon
Tanton Gibbs wrote:
Ok, I'm having a problem downloading a .zip file from a webpage. If I type
in the filename in the browser URL textbox I get
This smells homework!
/jon
Bruce Ambraal wrote:
Hi
I have done (b) for coding see below, could someone assist with
(a) (b) (d)
#!/usr/local/bin/perl -w
my $num_rows;
my $i;
my $r;
$num_rows = STDIN;
for ($r = 1; $r = $num_rows; $r++)
{
for ($i=1; $i= $r; $i++)
Frank wrote:
On Wed, Feb 13, 2002 at 01:17:50PM +0100, Andrea wrote:
In article [EMAIL PROTECTED] wrote
Jeff 'Japhy' Pinyan
[EMAIL PROTECTED]:
I have a set of functions that give numeric results, and I need to compare them
and choose the
maximal value. Is there any simple way of
Susan Aurand wrote:
What is the fastest or best way to sort a file alphabetically, the
rewrite it to a file.
you'll print this very fast anyway :)
sort file temp_file;mv temp_file file
/Jon
Thanks
Susan
Haywood County Schools
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For
Naika - EV1 wrote:
Bare with me but I'm a beginner and new to this list.
I need advice on poll results. What should I be researching? I have forms
submitting off websites and I can direct them to email the results but how
do I write them to a file to be redisplayed on a webpage?
Steven M. Klass wrote:
Hi all,
Here is the general problem. I have a file that I need to edit but can't.
im not sure i follow you here, making a backup copy is not an option?
perl -pi.bak -e 's/foo/bar/g' weird_uneditable_file;some_app
weird_uneditable_file;mv
[EMAIL PROTECTED] wrote:
I was happily programming, getting close to the end of my project just trying
to figure out table placement in html within my largest function on the page.
All of a sudden my function won't function! I didn't change any of the perl
code! And it was fine except
There's some good documentation about this at:
perldoc -f chmod
/Jon
Roman Hanousek wrote:
I can't remember how, But how do i change the attribute of a file from read
only to writable and then back gain.
Thanks
Roman
use BEGIN:
perl -e 'BEGIN {if (`pwd` =~ /some_path/){use lib (/usr);}else{use lib
(/home);}}'
i usually unshift @INC but i've heard that's not a good way to do it,
not sure why though.
/Jon
Kingsbury, Michael wrote:
I want to have two different variable for use lib depending on a cmd line
Kevin wrote:
Hi
I have a really simple problem that I could solve easily with a strstr() call
in c but cannot get my head around in perl.
I have have the following input.
Active Accounted actions on tty57, User fred Priv 1
Task ID 35176, Network Accounting record, 02:04:00 Elapsed
I'm not sure i follow you but if you use localhost or leave the host
blank it'll try localhost...
/Jon
Jefferson Ryan Lee wrote:
Hi,
Are there any way to access a database (SQL Server) not using the ODBC?
It is possible for a perl script to query a database not on a local
I guess geoff is in the ma-linux list, not in here since the only things
i can find in this thread is 3 posts by you. Kinda hard to offer
better(tm) sollutions when you don't know what's been suggested
before...Perhaps you should try NOT cross-posting?
/Jon
[EMAIL PROTECTED] wrote:
Thanks to
it's pod, do 'perldoc module' and 'perldoc perldoc'
/jon
Ron Goral wrote:
I have a very beginner's question. I've just been looking at the code for a
library file and noticed some, to me, very peculiar things. First, there is
text that is not commented, it is just typed in place. Why
You have the best(tm) webserver out there: www.apache.org, you can add
mod_ssl to it and there you go.
An alternative could be http://www.apache-ssl.org/ (not the same as
apache with mod_ssl)
/Jon
Gary Hawkins wrote:
CommerceSQL uses Perl and needs https, secure server. I already asked
Michael Pratt wrote:
This is what I want to do and I dont know where to start:
List files in a directory taking that list with just the filename and no
other information. using that information and populating a listbox.
Check out 'perldoc -f opendir perl'. Perhaps the File:: modules suits
Morgan Norell wrote:
Can anyone give me some hints how to do this I'am totaly lost.
read about files and regexps. There's a good book called 'learning perl'
you should check out. If you're not interested in buying books, check
the online info and perldoc.
If you're not interested in
Darryl Schnell wrote:
This may not be the place to ask this question so forgive me. I know a few people
who are obsessed with the way their perl code is formatted and I was wondering what
does actual good readable perl code and bad formatted perl code look like?
I usually have my code
or do:
print Content-type: text/html\n\n;
/Jon
John Edwards wrote:
This looks like your script isn't returning the correct HTML headers. It's
not a database connection fault. I would strongly suggest using the CGI.pm
module. This provides an easy interface to all things CGI.
All this to
Jorge Goncalvez wrote:
Hi, I have this:
#!/usr/local/bin/perl -w
use Win32::Registry;
my $Register =Software;
#my $Register2=.DEFAULT\\Software;
my $hkey;
my @array= qw($HKEY_LOCAL_MACHINE $HKEY_CURRENT_USER ) ;
foreach (@array)
i don't know this windows module but i guess this
bc wrote:
hello
i have a flat file (csv) [it has about 114 rows]
i want to put the word insert in front of each row,
how it the for each writtin? in other words, in perl, how do i do a for each row
insert the word insert , then it comes out of the for each loop thingy...?
perl
did you try at cpan?
http://search.cpan.org/
/Jon
richard noel fell wrote:
I have been unable to find a source for the tk module. My google
searches have been fruitless. Does anyone have a pointer to a tk.rpm for
redhat linux 7.1?
Thanks,
Dick Fell
--
To unsubscribe, e-mail: [EMAIL
Read 'perldoc DBI'
As a convenience, if the $data_source parameter is
undefined or empty the DBI will substitute the value
of the environment variable DBI_DSN. If just the
driver_name part is empty (i.e., data_source prefix is
'dbi::') the
if you aren't interesed in weather it works or not, why not try
system(/usr/local/bin/scp file $system:/home );
/jon
lospalomares wrote:
I am trying to scp a file to various systems, but the
script hangs if the scp command to one of the systems
fails. Is there a way in perl to specify
Hi list,
I've got a pretty hairy regexp that hangs and i can't really understand
why. It works just fine one my freebsd workstation running 5.6.1, but in
linux with 5.005_03 it just dies.
here is the code:
$rule = A. TRAVEL ON BB CODESHARE ABTS BB1000 - BB7999 AND
BB9000-BB NOT PERMITTED
B.
have
BEGIN
{
open (STDOUT, '/some/log/file')
}
if you want it to file
otherwise do,
open (STDOUT, STDERR);
and with shellstuff, redirects stdout, 2 redirects stderr so
system (ls /apa /dev/null 21);
redirects both outputs to /dev/null
is that what you wanted?
/Jon
Alex Harris wrote:
I'm not sure I really understand what you're after, i get the feeling
you're normaly using windows. If you set the mod to 755 (rwxrxrx) the
perlscript will be executable, there's no need t compile it with perlcc.
If it's speed you're after, you should use mod_perl instead
(perl.apache.org) as
here are two ways:
my $exit_code = system ($cmd);
system ($cmd);
print exit code = $?\n;
/Jon
Ahmed Moustafa wrote:
Hi All,
I'm calling a Java application using system. How can I know the return
code of the called Java application?
Your help will be appreciated so much.
Ahmed
--
Take a look at 'perldoc CGI.pm'
Perhaps you should buy a book as well? Or read the online documentation?
I can recomend 'learning perl'.
/Jon
kondreddy Rama koti Reddy wrote:
Dear Friends,
can u tell me, how can i create an executable
file for the .cgi program on linux whihc
is having
[EMAIL PROTECTED] wrote:
Try this:
#!/opt/local/bin/perl
#!/usr/bin/perl
my $A=a;
for(0..285074){
$A++;
print $A:;
perhaps you should consider NOT printing that 285074 times? would kinda
flood the term :)
}
print\n\n$A\n;
--
Ahmed Moustafa wrote:
Hi All,
My data structure is a hash of a hash of an array. I build it from an
input file by the following code. Could you help me write it back to an
output file, please?
# Code Begins
%data = ( );
open (IN, in.txt) || die;
while (IN) {
chop;
($user_name,
You need to call $handle-quit ();
/Jon
Cabezon Aurélien wrote:
Hi list,
I'm playing around Net::POP3.
I wanna make a script that is able to check for pop3 mail and then save them
in a MySQL database (not implemented yet, usefull for mailing archiving)
I'm at the start of the script
Hanson, Robert wrote:
It sounds like you might have multiple spaces between some elements.
Try this...
@date = split(/\s+/,$date);
but it will also split on \n,\t so / +/ would be better if it's just
space you wanna split on
/jon
This will split on one or more spaces.
Rob
Karsten Borgwaldt wrote:
Hi all,
can anybody tell me, why I can't push any read values into an array?
my code is:
..
..
..
opendir(IN, some_path) || die opendir: $!;
rewinddir(IN);
while (defined($_ = readdir(IN)))
{unless (m/^\.{1,2}$/ or not m/'.foo'$/) # all files, that are
Manish Uskaikar wrote:
Can anyone tell me if i can use threads in perl; If yes then what all library files
i have to include. Also tell me how i include a system library file like math.h or
unistd.h in perl. How can one include C libraries in perl program i.e.. *.pl
Regards
Manish U.
Stanislav Zahariev wrote:
Hello,
I'm searching for a perl book to buy... But I'm not sure which is the best, or
which are the best. Can you refer me some so I can chose from them? I know the basic
things of perl, if the book holds them they must be very detailed. I'm oriented in
that i sent a link with many books?
/Jon
Take a look at the FAQ section 2.3, bullet point 1 and chill out.
/John ;)
-Original Message-
From: Jon Molin [mailto:[EMAIL PROTECTED]]
Sent: 07 January 2002 16:32
To: Stanislav Zahariev
Cc: [EMAIL PROTECTED]
Subject: Re: Searching
Hubert Ian M. Tabug wrote:
Hi,
Given that I have a perl script main.pl, and I want main.pl to use/call
the script testprog.pl, and store testprog.pl's output into a variable that can be
used within main.pl. How do I go about doing it? Your help would be greatly
appreciated.
Mark-Nathaniel Weisman wrote:
Hello all,
Sorry about re-hashing old things here, however I've looked through
the older messages and can't seem to come up with an answer. How can you
pull a server based date and time stamp from within a script? Any help
would be greatly appreciated.
John W. Krahn wrote:
Gary Hawkins wrote:
How can I clear a line before replacing it?
Am doing \r and overwriting, but sometimes the text that was there previously
is longer than the new text.
Pad the shorter lines with spaces. For example:
printf \r%-20s, $something;
or
Hi Stanislav
i searched with google for Device::ParallelPort and came up with this:
http:[EMAIL PROTECTED]/msg05952.html
i was too lazy to register at
https://pause.perl.org/pause/authenquery?ACTION=edit_mod
as the post requests though, might be something for you?
It'd be nice to hear about
Prasanthi Tenneti wrote:
hi,
how to remove a line from a file?
pls help me.
press the delete key repetedly? :)
but really, i think you'll need to give som more info. what line? first
line, last line, random line, line nbr n?
would this be it?
my $line_to_delete = 7;
open (F,
Michael Pratt wrote:
I cant seem to get the ARGV to work right via web I get not found error but
it works via command line. whats the trick?
It works if I do this get_file.pl test1.txt test2.txt
but it wont work via http://www.host.com/cgi-bin/get_files.pl test1.txt
test2.txt
You
read
perldoc -f substr
/Jon
Jorge Goncalvez wrote:
Hi, I wanted to have the first 5 elements of a scalar, like for exemple:
my $number= E14011
my number2=E1401
How can i do this in Perl, thanks?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
perldoc -f length
:)
/Jon
Jorge Goncalvez wrote:
How can I count the number of characters of a string ?
Thanks
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands,
check man perlrun
im not sure what you're after, if it's just grep i'd suggest
find . -type f -exec grep foo {} \;
if you wanna do something about foo
find . -type f -exec perl -pi -e 's/foo/bar/g' {} \;
/Jon
Thomas S. Dixon wrote:
Greetings gurus,
I've worked with perl somewhat for the
You can if the database is accessible from the webserver.
Read about apache (www.apache.org) and perl (www.perl.org), especially
the modules CGI.pm and DBI.pm.
/Jon
Allison Davis wrote:
Can anyone tell me if you can have all the members of our origanization
access our database on the web
Lance Prais wrote:
#open a file with the filehandle
open WORKFLOW, ..\\..\\workflow.txt or die Cannot open Workflow $!\n;
my $data = WORKFLOW for (1..21);
while # loop through the workflow.txt
chomp; #a)
my $line=$_;
print STDERR \nline: $line;
}
The above code is
Hi,
some alternative approaches would be:
my $res = `$cmd`; # note that it's not ' but `
# $res only stdout, this will puke out stderr
or
my $res = `$cmd 21`; # redirect stderr to stdout
# $res is now both stderr and stdout
or
my $res = `$cmd 2/dev/null`; # throw away stderr
# $res is
stat is what you want, 'man perlfunc'.
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
$atime,$mtime,$ctime,$blksize,$blocks)
= stat($filename);
/Jon
Michael Pratt wrote:
Hello,
How do I get a file date time stamp?
Thanks
Mike
Have you tried CPAN.pm?
/Jon
Daniel Falkenberg wrote:
Hello All,
I don't know if this is possible but I want to be able to have a Perl
script check my server for modules that I need in my script. If the
modules don't exist.
Is there a module that does this or similar?
Regards,
i bet there's way of doing this on one line:
my $a = 'one two three four five six seven eight nine';
my @ar = ($a =~ /((?:\[^\]*\|[^\s]*))\s?/g); #should be possible to
remove
s/\//g foreach (@ar);
print $_\n foreach (@ar);
/Jon
Pete Emerson wrote:
I'd appreciate it if someone could
Hi list,
I'm trying to use eval () with a constants module and it works very
funny, can anyone explain this behavior to me. It seems to me as this is
a scope thing. If i remove the 'my' it works fine but i can't see why it
shouldn't work with my:
i have a module with constants (constants.pm):
83 matches
Mail list logo
