I am able to retrieve data and display it in a browser. How do I
create a button that will allow the data to be saved as a CSV file on
the client side?
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Tuesday 24 September 2002 3:41 pm, fliptop wrote:
On Tue, 24 Sep 2002 at 13:24, Geraint Jones opined:
GJ:I'm trying to get the output from a barcode scanner into my CGI script.
What I GJ:would like to see is the barcode going straight into a text box
in my GJ:browser. I am using
On Wed, 25 Sep 2002 at 10:00, Geraint Jones opined:
GJ:On Tuesday 24 September 2002 3:41 pm, fliptop wrote:
GJ: On Tue, 24 Sep 2002 at 13:24, Geraint Jones opined:
GJ:
GJ: GJ:I'm trying to get the output from a barcode scanner into my CGI script.
GJ: What I GJ:would like to see is the barcode
Simple.
Procedure:
1- Write out the file on the server.
2- Redirect the user to the file . ( using:
print (Location: http://..URL..TO..FILE;)
)
3- Remove the file from the server.
- Original Message -
From: chris [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, September 25,
Yeah and i think you should set the content type
header as well in return, don't know the exact mime
type but this should be easily found somewhere for a
csv if you for example want to present it in excel.
--- MMKHAJAH [EMAIL PROTECTED] wrote:
Simple.
Procedure:
1- Write out the file on the
From: Janek Schleicher [EMAIL PROTECTED]
Subject: Re: uninitialised value in pattern match
Date: Tue, 24 Sep 2002 13:10:28 +0200
^^^
There misses a ' quote.
(Don't retype code, put paste instead).
causes:
Use of inititialized value in
Just as a warning some systems at boot check the ownership/permissions
of devices in /dev and correct the problem children so all of a sudden
after a reboot this may not work again, you might be pre-emptive, try
rebooting (or take a walk through the init process) and if this is the
case
Lots of good answers so far about using arrays, hashes etc, so
won't bother going there... look below to see an OOP that works
efficiently, using NAMEs rather than refs.
-Original Message-
From: Zielfelder, Robert
[mailto:[EMAIL PROTECTED]]
Sent: 24 September 2002 18:44
To:
Hello All,
I am trying to install this module for mysql and I am having trouble with
it. I have included my makefile record and the error message I am receiving
for your review.
I would appreciate any help anyone can offer me. Thank you very much for
your assistance. Have a great day.
Hi all,
Could someone say to me why this program doesn't run? (it doesn't print the database
values)
#!/usr/bin/perl -w
dbmopen(%a,testdb,0666) || die couldn't create/access the file $!;
$a = $b = 0;
until ($a 20){# create items in the testdb.db file
$a{key$a} = $b;
$a = $b++;
The error message is as follows
In string, @63 now must be written as \@63 at -e line 1, near #foo-bar
Target[789]:
1.3.6.1.2.1.10.32.2.1.7.57.7891.3.6.1.2.1.10.32.2.1.9.57.789:SNMPSTRING@IP
Execution of -e aborted due to compilation errors.
The code is as follows, but well, the @ is escaped so
-Original Message-
From: Bruno Negrao [mailto:[EMAIL PROTECTED]]
Sent: 24 September 2002 23:49
To: [EMAIL PROTECTED]
Subject: dbmopen doesn't work
Hi all,
Could someone say to me why this program doesn't run? (it
doesn't print the database values)
#!/usr/bin/perl -w
On Tue, 24 Sep 2002, Josh wrote:
The error message is as follows
In string, @63 now must be written as \@63 at -e line 1, near #foo-bar
Target[789]:
1.3.6.1.2.1.10.32.2.1.7.57.7891.3.6.1.2.1.10.32.2.1.9.57.789:SNMPSTRING@IP
Execution of -e aborted due to compilation errors.
The code is
Cant I tweak perldoc so that it allows me to run as root
Everytime I want to refer to perldoc I have to su as some other user
which is time wasting
Ram
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi to all,
I need a script to open all the files in a directory and count all the
words of them, but it doesn't work:
use Text::ParseWords;
$folder = pathname;
opendir(KART, $folder);
foreach (readdir(KART)){
if(grep /\.txt$/, $_){
$filename = $_;
open(INPUT, $filename); this
on a linux / unix box:
alias perldoc='perldoc -U'
R
-Original Message-
From: Ramprasad A Padmanabhan [mailto:[EMAIL PROTECTED]]
Sent: 25 September 2002 11:01
To: [EMAIL PROTECTED]
Subject: perldoc as root
Cant I tweak perldoc so that it allows me to run as root Everytime I
want to
On Wed, 25 Sep 2002 12:13:45 +0200
Adriano Allora [EMAIL PROTECTED] wrote:
Hi to all,
I need a script to open all the files in a directory and count all the
words of them, but it doesn't work:
use Text::ParseWords;
$folder = pathname;
opendir(KART, $folder);
foreach (readdir(KART)){
On Wed, 25 Sep 2002 20:32:07 +1000
Robert Rendler [EMAIL PROTECTED] wrote:
I don't know how accurate this may be:
Bit of testing and it seems kinda accurate, shortened it anyways.
while (somedir/*.txt) {
open FH, $_ or die $!;
while (FH) {
$total += scalar split /\S+/, $_;
Arg!! Sorry, I really should have read the question more carefully.
while ($file = dir/*.txt) {
open FH, $file or die $!;
local $total;
while (FH) {
$total += split /\S+/, $_ ; --$total;
}
print In the file $file there are $total words\n;
}
--
print`$^Xdoc
Adriano Allora wrote:
Hi to all,
Hello,
I need a script to open all the files in a directory and count all the
words of them, but it doesn't work:
use Text::ParseWords;
$folder = pathname;
opendir(KART, $folder);
foreach (readdir(KART)){
if(grep /\.txt$/, $_){
$filename =
on Wed, 25 Sep 2002 10:13:45 GMT, [EMAIL PROTECTED] (Adriano
Allora) wrote:
Hi to all,
I need a script to open all the files in a directory and count all
the words of them, but it doesn't work:
$folder = pathname;
opendir(KART, $folder);
foreach (readdir(KART)){
if(grep /\.txt$/,
I dont know why but in my case also foreach ( readdir(...) ) didnt
work.
try
while( $eachfile = readdir( KART ){
.
}
This worked in my case.
-Rohit
Adriano Allora wrote:
Hi to all,
I need a script to open all the files in a directory and count all the
words of them, but it
Hi, i have a web application and
i wonder if there is a way to get server date from à client with perl?
because i can't do it in javascript.
Thanks for your tips.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi there,
I hope this is a trivial newbie problem:
I know how to open a pipe to another program:
open (OUT, |perl .\\bogus.pl) or warn Unable to open pipe to
bogus.pl\n;
print OUT Stuff\n;
And I know how to open a pipe from another program:
open (IN, perl .\\bogus.pl|) or
If *nix, look at help for the open3 function. Attached as a text file is
the little run class that I use to do this.
Here is an example of how to use this class to encapsulate GPG, where
the passphrase gets written to stdin of the child process, and the
results are reaped from the childs
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 8:52 AM
To: [EMAIL PROTECTED]
Subject: Programming pipes to and from another program
...
Is there a simple (or even complex) way to open a two way
pipe to another
program
On Sep 25, Adriano Allora said:
use Text::ParseWords;
Why are you using this module if you're not ACTUALLY using it?
$folder = pathname;
opendir(KART, $folder);
foreach (readdir(KART)){
if(grep /\.txt$/, $_){
You probably just want
if (/\.txt$/) { ... }
here. It's simpler. Or you
-Original Message-
From: Thomas 'Gakk' Summers [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 8:34 AM
To: [EMAIL PROTECTED]
Subject: File testing
Warning: Perl Novice Alert!
I'm trying to:
1. read in a list of files,
2. test for text,
3. convert the text
From: William Martell [EMAIL PROTECTED]
I am trying to install this module for mysql and I am having trouble
with it. I have included my makefile record and the error message I
am receiving for your review.
I would appreciate any help anyone can offer me. Thank you very
From: Ramprasad A Padmanabhan [EMAIL PROTECTED]
Cant I tweak perldoc so that it allows me to run as root
Everytime I want to refer to perldoc I have to su as some other user
which is time wasting
Ram
You should spend as little time as root as possible!
Besides ... you can't have two
-Original Message-
From: Thomas 'Gakk' Summers [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 8:34 AM
To: [EMAIL PROTECTED]
Subject: File testing
Warning: Perl Novice Alert!
I'm trying to:
1. read in a list of files,
2. test for text,
3. convert the text files from
If *nix, look at help for the open3 function. Attached as a text file is
the little run class that I use to do this.
Here is an example of how to use this class to encapsulate GPG, where
the passphrase gets written to stdin of the child process, and the
results are reaped from the childs
Thanks for your quick response.
while (iFH) {
chomp;
s/\n/\r\n/g; # Need to see if this works. I think, it should work.
print oFH;
}
close oFH;
close iFH;
$files[$i] = $tmpfile$i;
Don't know why you are doing this ??
I was going to read thru
I have a string that is delimited by the '|' character. I pass this string
to a sub, and within the sub I break it apart using split
my @Array = split(/|/, $_[1]);
When I print out the array, I find that split has broken the string apart
character by character, and not by the
Because the | is part of the regex which allows for (a|b|c| which
says if a or b or c. So what you have is basically I believe null or null
which comes down to split(,$_[1]). What you want would be to escape the |
like \|, so you would have split(/\|/, $_[1]);
Wags ;) ps My terminology
Peter,
The openX() funcs are *nix based, and NT is very different in these
areas, so my code probably won't help much, and may take you down the
long and winding road 8-((.
muse All our automation is nix based for reliability and manageability
- you might consider a Linux box 8-)? but that is
I see. Thanks!
Sean
-Original Message-
From: Rowe, Sean D. [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 10:53 AM
To: [EMAIL PROTECTED]
Subject: Problem with split
I have a string that is delimited by the '|' character. I pass this string
to a sub, and within the
I am trying to create a hash that takes an xml input from a file retrieves all
lines
that has the word test_number in it, splits it to retrieve the actual test
number and then
when the hash is populated while through it and print out the keys and values.
I don't really have a good grasp of how
Pete Lancashire wrote:
My brain is blocking something really simple here.
What I want to do is add a block of text to
a image created as
my $graph = new GD::Graph::pie(1200, 1200);
Could someone show me an example of adding a
wrapbox of text to this image ?
have you try things
You have a number of things missing. The group will tell you to use
warnings and strict. This would have highlighted a number of items.
Here is the snippet of code using __DATA__ for the data:
my @test_number = ();
my $i= 0;
my %hast_try = ();
while(DATA) {
if (
There is a modeule XML::Parser ..something like this which you can look into.
You can also write your code as
open(XML, x) || die(Cannot open file \n);
my $i = 1;
my %hash_try;
while(XML) {
chomp;
if (/test_number/) {
/(test_number)(.*?)\/(\1)/;
if (defined $2) {
$hash_try{$i} =
Bob Showalter wrote:
A more idiomatic way to write this is:
for my $i (0 .. @files) {
you probably mean:
for my $i (0 .. $#files){
}
the range operator is inclusive.
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
I've managed to get SQL working now. Just one query. How can I get perl to
create a new table? I have the table's name set in $acctab, this is what i
have, but it doesn't work.. how so?
my $sth = $dbh-prepare( CREATE TABLE $acctab ( uid mediumint(10) NOT
NULL, nick varchar(30) NOT NULL, ulevel
Sean Sugrue wrote:
I am trying to create a hash that takes an xml input from a file retrieves
all lines
that has the word test_number in it, splits it to retrieve the actual test
number and then
when the hash is populated while through it and print out the keys and
values. I don't really
on Wed, 25 Sep 2002 17:16:19 GMT, Dan wrote:
I've managed to get SQL working now. Just one query. How can I get
perl to create a new table? I have the table's name set in $acctab,
this is what i have, but it doesn't work.. how so?
Try
$dbh-do(CREATE ...);
--
felix
--
To
Dan wrote:
I've managed to get SQL working now. Just one query. How can I get perl to
create a new table? I have the table's name set in $acctab, this is what i
have, but it doesn't work.. how so?
what's the error? any error message? perhaps you don't have permission?
my $sth =
Thomas 'Gakk' Summers wrote:
Warning: Perl Novice Alert!
I'm trying to:
1. read in a list of files,
2. test for text,
3. convert the text files from '\n' unix to '\r\n' dos
4. write them to a temporary location.
The code below produces an error: 'Use of uninitialized value in -f
Thanks for your help.
I rewrote it using a mix of your suggestions and it works fine now.
FYI: The 'chomp' statement was eliminating the '/n' so the pattern match
was not occuring. That's fixed now too.
Tom.
Thomas 'Gakk' Summers [EMAIL PROTECTED] wrote in message
[EMAIL
I'm trying to write a perl script that creates a user name and password
for new users on a Solaris 8 box. I'm wondering if there's an easy way to
send a pregenerated password to the passwd command in a perl script.
Something like:
system(passwd,$uname, $generatedpassword);
Thanks.
--
To
On Tue, Sep 24, 2002 at 07:49:24PM -0300, Bruno Negrao wrote:
#!/usr/bin/perl -w
Where's use strict?
dbmopen(%a,testdb,0666) || die couldn't create/access the file $!;
$a = $b = 0;
until ($a 20){# create items in the testdb.db file
This loop will never run. $a == 0, which is
On Wed, Sep 25, 2002 at 10:23:28AM +0700, Hengky wrote:
i've already using a pop3 like Net::POP3 or even create a open port to
listen.
Net::POP3 is for connecting to a POP3 daemon, and create a open port
sounds like you're trying to write a POP3 daemon. Which is it, are you the
client, or the
That works but I want to add some additional text at the bottom of
the image in the bottom margin area. And at times an overlay of text.
When I use the function I get Not a GD::Image object
-pete
-Original Message-
From: david [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25,
On Wed, Sep 25, 2002 at 11:17:18AM -0500, Wagner, David --- Senior Programmer Analyst
--- WGO wrote:
Because the | is part of the regex which allows for (a|b|c| which
says if a or b or c.
Also known as alternation.
So what you have is basically I believe null or null which comes down
I'm trying to sort a SQL table that contains a character-type field that
contains mostly numbers. This field always contains either a number or a
number followed by a character. Like '57' or '57a'.
I'd like to sort the table *numerically* on this field, not *alphabetically*
on this field. That
Hi all,
I'm just looking for some confirmation on my regx.
I have a list ('1992', '1993 (summer)', '1995 fall') and what I want to do
is keep only the first four characters. Will the regx work for me?
@list =~ s/\s*//;
Again will that turn the list into (1992, 1993, 1995)?
as always thank
Nope..this won't work. Why don't you loop over the list and do a substring or pack as
you know that you need to keep only the first 4 characters of each element?
-Original Message-
From: Shaun Bramley [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 4:24 PM
To: [EMAIL
-Original Message-
From: Shaun Bramley [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 4:24 PM
To: [EMAIL PROTECTED]
Subject: Help with regular expression
Hi all,
I'm just looking for some confirmation on my regx.
I have a list ('1992', '1993 (summer)',
Howdy:
(Warning: Questions require background, so this is a touch long.
Sorry about that.)
Okay, I've written, debugged, documented, etc a module. I think it
turned out well and might even be worth submitting to the CPAN. I'm
reading through the 'Guidelines for Module Creation' now, to
You should be able to sort it numerically if I understand where the
data is coming from. Could you provide a snippet of the code and from there
it should not be that hard to provide code to sort numerically.
Wags ;)
-Original Message-
From: John Almberg [mailto:[EMAIL
Well, right now I'm doing the sort in SQL. That's the problem. Since its a
character-type field, I can't get MySQL to sort properly.
I guess I could use DBI::fetchall_arrayref to fetch all the data at once,
then sort the array of records the way I need them. However, what I'm hoping
for is some
On Wed, Sep 25, 2002 at 04:17:57PM -0400, John Almberg wrote:
I'm trying to sort a SQL table that contains a character-type field that
contains mostly numbers. This field always contains either a number or a
number followed by a character. Like '57' or '57a'.
I'd like to sort the table
Here is how to do it in mysql
http://www.mysql.com/doc/en/Cast_Functions.html
- Original Message -
From: John Almberg [EMAIL PROTECTED]
To: Beginners [EMAIL PROTECTED]
Sent: Wednesday, September 25, 2002 5:21 PM
Subject: RE: How to sort a character-type field, numerically
Well, right
On Wed, Sep 25, 2002 at 03:34:26PM -0500, James Edward Gray II wrote:
'2.1 Do similar modules already exist in some form?'
[snip]
My newly coded module is a Multiplexed Non-blocking I/O Telnet Server.
It was written with an eye towards serving MUDs, MUSHes, and similar
games, because
Shaun Bramley wrote:
Hi all,
I'm just looking for some confirmation on my regx.
I have a list ('1992', '1993 (summer)', '1995 fall') and what I want to do
is keep only the first four characters. Will the regx work for me?
@list =~ s/\s*//;
Again will that turn the list into (1992,
John Almberg wrote at Wed, 25 Sep 2002 22:17:57 +0200:
I'm trying to sort a SQL table that contains a character-type field that
contains mostly numbers. This field always contains either a number or a
number followed by a character. Like '57' or '57a'.
I'd like to sort the table
Shaun Bramley wrote at Wed, 25 Sep 2002 22:24:00 +0200:
I'm just looking for some confirmation on my regx.
I have a list ('1992', '1993 (summer)', '1995 fall') and what I want to do
is keep only the first four characters. Will the regx work for me?
@list =~ s/\s*//;
Again will that
On Wed, Sep 25, 2002 at 05:33:42PM -0400, Tanton Gibbs wrote:
Here is how to do it in mysql
http://www.mysql.com/doc/en/Cast_Functions.html
Have you tried it on the type of data the original poster was mentioning?
I'm suspecting it's going to have a problem when trying to cast 1b as a
number.
Hello, All:
When using...
while ($x = readdir(DH)) {
# What came before $x?
# What will come after $x?
}
How can I look at the next item in the directory?
--
Eric P.
Sunnyvale, CA
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL
On Wed, Sep 25, 2002 at 03:37:51PM -0700, david wrote:
a lot of modules in CPAN have overlap functionality. they exist solely
for the users' benefit.
It depends on the module, and for many of the modules that may be true. But
there is another reason there are overlapping modules on CPAN: the
On Wednesday, September 25, 2002, at 05:08 PM, Michael Fowler wrote:
You mention your module is a telnet server. Is that accurate? Does it
actually understand the telnet protocol?
It is accurate, yes. It includes a basic Telnet implementation that
denies most options, and handles things
On Wednesday, September 25, 2002, at 05:37 PM, david wrote:
bug, more efficient, more portable, etc. who knows maybe James' module
is
more efficient than the already exist CPAN module, maybe it's more
portable, maybe it's easier to use, maybe it has less or no bug, so
even
there already
James Edward Gray II wrote:
On Wednesday, September 25, 2002, at 05:37 PM, david wrote:
bug, more efficient, more portable, etc. who knows maybe James' module
is
more efficient than the already exist CPAN module, maybe it's more
portable, maybe it's easier to use, maybe it has less or no
- Original Message -
From: [EMAIL PROTECTED]
To: Beginners Perl Mailing List [EMAIL PROTECTED]
Sent: Wednesday, September 25, 2002 3:33 AM
Subject: Looping through readdir()
Hello, All:
When using...
while ($x = readdir(DH)) {
# What came before $x?
# What will come after $x?
}
- Original Message -
From: david [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Wednesday, September 25, 2002 6:37 PM
Subject: Re: My First Module Advice
...
having said that, i do not mean that anyone should write a silly module
and
submit it to CPAN
Heck, there's even a namespace
[EMAIL PROTECTED] wrote:
Hello, All:
When using...
while ($x = readdir(DH)) {
# What came before $x?
# What will come after $x?
}
How can I look at the next item in the directory?
i don't really know what you mean by before or after. directoris are not
really in any order. they
Bob Showalter wrote:
http://www.cpan.org/modules/by-module/Silly/
oh my god! i don't really mean to insult whoever wrote the module. i am just
using it as an example. :)
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hey everyone, I've downloaded some scripts and I wanna mess with 'em and
use 'em and see how they work but I can't find a place to download the
modules specified in the scripts I've tried google, and CPAN shows
me the list and links to the descriptions but I haven't been able to
find simply a
[EMAIL PROTECTED] wrote:
Hi, i have a web application and
i wonder if there is a way to get server date from ? client with perl?
because i can't do it in javascript.
$ perldoc -f localtime
E.g.
$ perl -le 'print scalar localtime'
Wed Sep 25 22:33:01 2002
--
Steve
perldoc -qa.j |
Steve wrote:
Hey everyone, I've downloaded some scripts and I wanna mess with 'em and
use 'em and see how they work but I can't find a place to download the
modules specified in the scripts I've tried google, and CPAN shows
me the list and links to the descriptions but I haven't been able to
On Wed, Sep 25, 2002 at 10:11:25PM -0500, rob wrote:
ppm
then help
ppm is perl package managment. This downloads and installs modules for you
(but you have to know what you're interested in)
It should be noted that ppm is specific to an ActivePerl install. If you're
not using ActivePerl
On Wed, Sep 25, 2002 at 06:51:14PM -0500, James Edward Gray II wrote:
On Wednesday, September 25, 2002, at 05:08 PM, Michael Fowler wrote:
I looked for telnet servers and found a few things. There's an OurNet
namespace for some sort of BBS system, and an Anarres::Mud::Driver
namespace for
I have data that for some god foresaken reason is using two or three methods
of delimitting names. Some are delimitted using '//' others with ';'.
I have tried using @names = split( /(;)|(\/\/)/, $authors[$x]); however
this doesn't have the intended result.
Is this possible? or am I doing
Does this work?
split(/(;|\/+)/,$authors[$x])
-Original Message-
From: Shaun Bramley [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, September 25, 2002 10:01 PM
To: [EMAIL PROTECTED]
Subject: Help with regular expressions within a split statement
I have data that for some god foresaken
83 matches
Mail list logo