On Thursday 03 September 2015 21:50:54 Marius Gavrilescu wrote:
> gary.stainb...@ringways.co.uk (Gary Stainburn) writes:
> > On Thursday 03 September 2015 18:19:57 Marius Gavrilescu wrote:
> >> The above can be shortened using the Sort::Key module.
> >>
> >> use Sort::Key 'nkeysort';
> >> f
On 09/03/2015 04:50 PM, Marius Gavrilescu wrote:
gary.stainb...@ringways.co.uk (Gary Stainburn) writes:
On Thursday 03 September 2015 18:19:57 Marius Gavrilescu wrote:
The above can be shortened using the Sort::Key module.
use Sort::Key 'nkeysort';
for my $key (nkeysort { $pagetype
gary.stainb...@ringways.co.uk (Gary Stainburn) writes:
> On Thursday 03 September 2015 18:19:57 Marius Gavrilescu wrote:
>> The above can be shortened using the Sort::Key module.
>>
>> use Sort::Key 'nkeysort';
>> for my $key (nkeysort { $pagetypes{$_} } keys %pagetypes) {
>> # do
On Thursday 03 September 2015 18:19:57 Marius Gavrilescu wrote:
> gary.stainb...@ringways.co.uk (Gary Stainburn) writes:
> > I am aware that you cannot define a key sequence when defining a hash.
> > However, if I create a sequence field
> >
> > my %pagetypes=(
> > 'Delivery Note'=>{'seq'=>1,w
On Thu, Sep 3, 2015 at 9:42 AM, Gary Stainburn
wrote:
> I have a hash of hashes which I converted to an array of hashes because I
> needed to access them in a specific sequence. It now looks like
>
> my @pagetypes=(
> {'pagetype'=>'Delivery Note','weight'=>2,.
> {'pagetype'=>
On Thu, 3 Sep 2015 17:42:48 +0100
Gary Stainburn wrote:
> I have a hash of hashes which I converted to an array of hashes
> because I needed to access them in a specific sequence. It now looks
> like
>
> my @pagetypes=(
> {'pagetype'=>'Delivery Note','weight'=>2,.
> {'pagetype'
gary.stainb...@ringways.co.uk (Gary Stainburn) writes:
> I am aware that you cannot define a key sequence when defining a hash.
> However, if I create a sequence field
>
> my %pagetypes=(
> 'Delivery Note'=>{'seq'=>1,weight'=>2,.
> 'Sales Invoice'=>{'seq'=>2,'weight'=>2,.
>
Hi Gary,
please reply to all recipients.
On Thu, 3 Sep 2015 17:42:48 +0100
Gary Stainburn wrote:
> I have a hash of hashes which I converted to an array of hashes because I
> needed to access them in a specific sequence. It now looks like
>
> my @pagetypes=(
> {'pagetype'=>'Delivery N
Date sent: Sat, 03 Mar 2012 14:42:35 -0500
From: Steve Bertrand
> I've been writing a program that will perform extra work for diagnostics
> upon each method call.
>
> As of now, I need to write a call to an outside function manually into
> each method. To automa
On 03/03/2012 02:42 PM, Steve Bertrand wrote:
I've been writing a program that will perform extra work for diagnostics
upon each method call.
attributes can do that for each sub. there are modules that let you call
code before/after each method call. or class techniques that allow that.
On Sat, Mar 03, 2012 at 02:42:35PM -0500, Steve Bertrand wrote:
> I've been writing a program that will perform extra work for
> diagnostics upon each method call.
>
> As of now, I need to write a call to an outside function manually
> into each method. To automate this so the original methods do
On 2012-03-03 14:18, Paul Johnson wrote:
On Sat, Mar 03, 2012 at 01:51:28PM -0500, Steve Bertrand wrote:
Is there a proper way to do this that someone could point out?
no strict "refs";
foreach my $entry ( keys %{ ref($dog) . "::" })
But why? If you really need class introspection then OK,
On 03/03/2012 01:51 PM, Steve Bertrand wrote:
Hi all,
I have a need to examine and manipulate certain aspects of a class
symbol table. I can do this:
you claim you have this need but given your skill level, i wonder if
that is actually a real need. please state the larger problem you are
tr
On Sat, Mar 03, 2012 at 01:51:28PM -0500, Steve Bertrand wrote:
> Hi all,
>
> I have a need to examine and manipulate certain aspects of a class
> symbol table. I can do this:
>
> my $dog = Animal->new();
> foreach my $entry ( keys %Animal:: ){
> ...
> }
>
> ...but what I'd like to do is der
On 11-07-31 06:44 PM, Emeka wrote:
Yours will print the content of each file... while mine will list only their
names.
Yes, sometimes people want the contents printed but end up printing the
list. I wasn't sure what you wanted and since your version looked good
for printing the list, I show
Shawn,
Yours will print the content of each file... while mine will list only their
names.
Emeka
On Sun, Jul 31, 2011 at 9:57 PM, Shawn H Corey wrote:
> On 11-07-31 04:52 PM, Emeka wrote:
>
>> Hello All,
>>
>>
>> I wanted to do this ...
>>
>> while(<*.pl>){
>> print $_;
>> }
>>
>>
>> I got "BEG
Thanks Rob ... It worked. Shawn thanks so much.
I found out that the problem was from my little box Nanonote... It has a
light weight Perl. When I switched to real thing it worked.
Emeka
On Sun, Jul 31, 2011 at 11:02 PM, Rob Dixon wrote:
> On 31/07/2011 21:52, Emeka wrote:
>
>> Hello All,
>>
>
On 31/07/2011 21:52, Emeka wrote:
Hello All,
I wanted to do this ...
while(<*.pl>){
print $_;
}
I got "BEGIN failed--compilation"
Am I using something that is old?
There is nothing wrong with that. Please show your complete program -
there must be something else in the file that is causing
If you want that in a script, use File::Find and open each file and pass the
file handle.
On Jul 31, 2011 4:53 PM, "Emeka" wrote:
> Hello All,
>
>
> I wanted to do this ...
>
> while(<*.pl>){
> print $_;
> }
>
>
> I got "BEGIN failed--compilation"
>
> Am I using something that is old?
>
>
> Emeka
On 11-07-31 04:52 PM, Emeka wrote:
Hello All,
I wanted to do this ...
while(<*.pl>){
print $_;
}
I got "BEGIN failed--compilation"
Am I using something that is old?
Try:
{
local @ARGV = glob( '*.pl' );
while( <> ){
print $_;
}
}
See:
perldoc -f glob
perldoc -f local
perldoc pe
t I want to pass on is not numeric but a
string - is that possible?
Kind regards,
Nora
> -Ursprüngliche Nachricht-
> Von: Malesha, Sachin [mailto:sachin.male...@siemens.com]
> Gesendet: Montag, 21. Februar 2011 09:54
> An: HACKER Nora
> Cc: beginners@perl.org
> Betreff:
print $object->[$stp]->{'lieferung'},"\n";
~Parag
On Mon, Feb 21, 2011 at 12:46 AM, HACKER Nora wrote:
> Hello,
>
> I want to get the value of a key of a Hash that is part of an Array of
> Hashes, whereas the correct hash to work with is being determined by the
> value of another key which is
I was able to print with the below line. Be sure that you are passing a value
0-2 as an argument to your script since you have only three elements in your
array.
print "$object->[$stp]{'stp'}\n";
Regards,
Sachin
-Original Message-
From: HACKER Nora [mailto:nora.hac...@stgkk.at]
Sent:
Ryan wrote:
my $HHs=[
{Rx => 'test', key2 => '1st second key' },
{Rx => '2nd1', key2 => '2nd second key' },
{Rx => '3rd1', key2 => '3rd second key' }
];
say join(', ', @{$HHs->{Rx}}); # say all the values of the 'Rx' key in
each element of @$HHs.
Is there an easy way to do what I
Ryan wrote:
> my $HHs=[
> {Rx => 'test', key2 => '1st second key' },
> {Rx => '2nd1', key2 => '2nd second key' },
> {Rx => '3rd1', key2 => '3rd second key' }
> ];
>
> say join(', ', @{$HHs->{Rx}}); # say all the values of the 'Rx' key in
> each element of @$HHs.
>
> Is there a
A Divendres 15 Setembre 2006 22:21, D. Bolliger va escriure:
> Geetha Weerasooriya am Freitag, 15. September 2006 15:52:
> > Hi ,
> >
> > I have an Array of Hashes as follows:
> >
> > @array = (
> > { 'A'=>1, 'B' =>2, 'C'=>3, 'D'=>4}
> > { 'A'=>5, 'B' =>6, 'C'=>7, 'D'=>8}
> > { 'A'=>9, 'B' =>10,
Geetha Weerasooriya am Freitag, 15. September 2006 15:52:
> Hi ,
>
> I have an Array of Hashes as follows:
>
> @array = (
> { 'A'=>1, 'B' =>2, 'C'=>3, 'D'=>4}
> { 'A'=>5, 'B' =>6, 'C'=>7, 'D'=>8}
> { 'A'=>9, 'B' =>10, 'C'=>11, 'D'=>12}
> { 'A'=>13, 'B' =>14, 'C'=>15, 'D'=>16}
> { 'A'=>17, 'B' =>
Geetha Weerasooriya wrote:
> Hi ,
Hello,
> I have an Array of Hashes as follows:
>
> @array = (
> { 'A'=>1, 'B' =>2, 'C'=>3, 'D'=>4}
> { 'A'=>5, 'B' =>6, 'C'=>7, 'D'=>8}
> { 'A'=>9, 'B' =>10, 'C'=>11, 'D'=>12}
> { 'A'=>13, 'B' =>14, 'C'=>15, 'D'=>16}
> { 'A'=>17, 'B' =>18, 'C'=>19, 'D'=>20}
Geetha Weerasooriya wrote:
I have an Array of Hashes as follows:
@array = (
{ 'A'=>1, 'B' =>2, 'C'=>3, 'D'=>4}
{ 'A'=>5, 'B' =>6, 'C'=>7, 'D'=>8}
{ 'A'=>9, 'B' =>10, 'C'=>11, 'D'=>12}
{ 'A'=>13, 'B' =>14, 'C'=>15, 'D'=>16}
{ 'A'=>17, 'B' =>18, 'C'=>19, 'D'=>20}
{ 'A'=>21, 'B' =>22, 'C'=>23,
- Original Message -
From: "Timothy Johnson" <[EMAIL PROTECTED]>
To: "Mike Blezien" <[EMAIL PROTECTED]>; "Peter Hoose" <[EMAIL PROTECTED]>;
"Perl List"
Sent: Wednesday, August 09, 2006 11:14 AM
Subject: RE: Access MDF files
day, August 09, 2006 9:09 AM
To: Peter Hoose; Perl List
Subject: Re: Access MDF files
Thx's Peter.
Is there a way or simple means of just extracting the data from the mdb
files so
we can import it into a MySQL database, something like a dump file or
similar ?
Mike
> - Original Messag
Thx's Peter.
Is there a way or simple means of just extracting the data from the mdb files so
we can import it into a MySQL database, something like a dump file or similar ?
Mike
- Original Message -
From: "Mike Blezien" <[EMAIL PROTECTED]>
To: "Perl List"
Sent: Wednesday, August 09
- Original Message -
From: "Mike Blezien" <[EMAIL PROTECTED]>
To: "Perl List"
Sent: Wednesday, August 09, 2006 11:20 AM
Subject: Access MDF files
Hello,
is there a Perl module available to obtain data from Access .mdf files ?
thx's
Mike(mickalo)Blezien
--
To unsubscribe, e-mail: [
On 8/25/05, Karyn Williams <[EMAIL PROTECTED]> wrote:
> At 11:29 AM 8/25/05 +0200, you wrote:
> >On 8/24/05, Karyn Williams <[EMAIL PROTECTED]> wrote:
> Try changing your shell to /bin/sh and then try running the script from the
> command line.
That won't help, my sh is a symlink to bash.
> >> I ca
On 8/24/05, David Van Ginneken <[EMAIL PROTECTED]> wrote:
> [~]# perl tst
> What happens? If that works.
That works, it was included in my original posting.
>
> Try this:
> [~]# cat tst
> #!/usr/bin/perl -w
> print "Hello world\n";
Here goes:
[~]# cat tst
#!/usr/bin/perl -w
print "Hello world\n"
On 8/24/05, Raj, Raymond <[EMAIL PROTECTED]> wrote:
> give execute permission to your perl script
I think it has! That's why I included:
[~]# ls tst -l
-rwxrwxr-x 1 kris users 39 2005-08-23 15:27 tst
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<
Jeff 'japhy' Pinyan wrote:
On Jul 13, JupiterHost.Net said:
In a script I can access __END__ via
I'd like to access __END__ form within a module (IE package)
Reading 'perldoc perldata' yields this:
Text after __DATA__ but may be read via the filehandle "PACK-
NAME::DATA", where "PA
On Jul 13, JupiterHost.Net said:
In a script I can access __END__ via
I'd like to access __END__ form within a module (IE package)
Reading 'perldoc perldata' yields this:
Text after __DATA__ but may be read via the filehandle "PACK-
NAME::DATA", where "PACKNAME" is the package that was
[EMAIL PROTECTED] wrote:
> Hello,
>
> >From an Oracle utlfile data under unix, I generate an Excel-Worksheet with
> the module Spreadsheet::WriteExcel.
>
> How can I do the same, but for Access ?
>
> Thank you.
>
> Olivier
Access is a SQL-compliant database. Therefore you should use DBI.
Joseph
Quoting cowboy <[EMAIL PROTECTED]>:
> Hello all,
>
> I have a mdb file(ms access) on linux server.
> Is there any method to access this mdb file from perl?
>
Here's a good summation post and follow-up on London Perl Mongers list:
http://kochi.etla.org/london.pm/html/2002/07/msg00068.html
Basic
Dan Muey wrote:
> Hello faithful list!
>
> Has anyone worked with Microsoft Access Databases with perl?
>
> I either need to run a query on a remote Access Database or
> Have the people that have that database save it in CSV format
> or something to import it into mysql.
>
> Any ideas how best to
> Would UnixODBC-0.19 be of any use?
>
> http://unixodbc-pm.org/
Perhaps but not with these folks.
I'll take a gander at that thoguth for future reference.
Thanks
Dan
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
On Wed, Jun 18, 2003 at 09:20:55AM -0500, Dan Muey wrote:
>
> > > Any ideas how best to deal with Access Databases with perl?
> >
> > Look up "MDB Tools" on Freshmeat.net
> Thanks!
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
Would U
> Here's how I used to connect using DBI and DBD::ODBC. I
> would pass the access database's name as a parameter. From
> here you can just use dbi and SQL to manipulate the DB. If
> you need more help with DBI I would recommend posting in the
> dbi-users group.
>
> my $dbh = DBI->connect("d
> > Any ideas how best to deal with Access Databases with perl?
>
> Look up "MDB Tools" on Freshmeat.net
Thanks!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
> Ick. Don't go there. Bad combination. If you are using Perl,
> try working with mySql or PostgresSql - both have some
> support in Perl. Access complicates things all across the
> board, and it has major scalability problems for any web related work.
You're preaching to the choir my friend. T
ot;dbi:ODBC:driver=Microsoft Access Driver
(*.mdb);dbq=$ARGV[0]", '','') || die "$DBI::errstr\n";
-Original Message-
From: Josh Berkus [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 17, 2003 5:45 PM
To: Dan Muey; [EMAIL PROTECTED]
Subject: Re: Access
Dan,
> Has anyone worked with Microsoft Access Databases with perl?
>
> I either need to run a query on a remote Access Database or
> Have the people that have that database save it in CSV format
> or something to import it into mysql.
>
> Any ideas how best to deal with Access Databases with p
Yannick Warnier wrote:
> Hi,
>
> I cannot find any way of accessing an "action" parameter of a form with
> my perl script.
>
> So in fact i have
>
>
Appending any query string to the URL is the browser's task. It is best not to try to
duplicate it.
Joseph
--
To unsubscribe, e-mail: [E
Yannick Warnier wrote:
> Hi,
>
> I cannot find any way of accessing an "action" parameter of a form
> with my perl script.
>
> So in fact i have
>
>
>
> And in the called script, I would like to have the "param" value
> "value". How can I do that? It doesn't work with
>
> $object = new CG
>
> Hi,
>
> I cannot find any way of accessing an "action" parameter of a
> form with my perl script.
>
> So in fact i have
>
>
Try putting param=value into a hidden form field.
When you mix get and post it won't always work.
DMuey
>
> And in the called script, I would like to have t
Greetings Babichev,
Can I offer you a non-perl solution to this problem, though I know that you
might actually want the solution in perl (I would for the fun of it), there
is a package called procmail which is very good at doing things like this,
assuming that you're using Unix of course. Why re-i
Received an off-list reply that solved the problem.
Replaced
$client->recv
with:
$dataIn = <$client>);
There's no way I would have figured that out on my own.
Hew
Hewlett M. Pickens
BIM
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PR
I apologize for the multiple posts. The post with attachments was
"rejected" once by the list with "Your mail to murzc could not be delivered
because murzc is not accepting mail with attachments or embedded images" so
I sent it a second time with the code snippets included in the post. Don't
kno
Hewlett Pickens wrote:
>
> Using O'Reilly's "Learning Perl", have set up a "bare bones" socket
> connection between two computers to send a small amount of data from the
> "client" to the "server". (For learning, not for the real world.)
>
> The client sends "are you there" and the server res
Hew,
I've never delved into this area at all, but looking at your code, shouldn't
you have
Proto=> "tcp",
in the IO:::Socket... on server as well as client?
Joe
-Original Message-
From: Hewlett Pickens [mailto:[EMAIL PROTECTED]]
Sent: Thursday, January 31, 2002 12:50 PM
To: [EMAIL
From: Rupert Heesom <[EMAIL PROTECTED]>
> I don't know much about perl & databases, but according to a book I
> have on Perl, the DBD::ADO driver might be what you need for MS
> Access.
I admit I did not measure that, but I'd bet DBD::ODBC would be
quicker.
Jenda
===
From: Garry Williams <[EMAIL PROTECTED]>
> On Sat, Nov 10, 2001 at 03:58:04PM -0800, Marcia Magna wrote:
>
> > I have a program that needs to fork. The child process creates
> > values in a hash that must be seen by the parent process.
> >
> > Is there anyway to do that ?
>
>
> -Original Message-
> From: Marcia Magna [mailto:[EMAIL PROTECTED]]
> Sent: Saturday, November 10, 2001 6:58 PM
> To: [EMAIL PROTECTED]
> Subject: Access the same hash in the parent and child process
>
>
> Hi,
>
> I have a program that needs to fork. The child process
> creates values
On Sat, Nov 10, 2001 at 03:58:04PM -0800, Marcia Magna wrote:
> I have a program that needs to fork. The child process creates
> values in a hash that must be seen by the parent process.
>
> Is there anyway to do that ?
Short answer: No.
When a process fork()s, a new process is created. Tha
Hi Pathi,
There is an excellent book from O'Reilly _Programming the Perl
DBI_. It has a leopard on the cover, and it should answer every question
you could possibly desire concerning the DBI.
HTH,
Dave
On Tue, 30 Oct 2001, Erramilli, Pathi (P.) wrote:
> Hi,
>
> I am new to
hi Pathi,
I believe that you would use DBD::ODBC module, then there won't be a big
problem. ^^
http://search.cpan.org/search?dist=DBD-ODBC
good luck
"Pathi Erramilli" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> Hi,
>
> I am new to perl...I am trying to u
I think that the best way to do that is to use the Win32::ODBC module.
You have to create an odbc source to your SQL server db, then use the
Win32::ODBC::new($datasource) function to bind
it.
I never find a DBI module for MSSQL, may be you can try the Sybase DBI module because
this 2 dbs were u
63 matches
Mail list logo
