Antwort: Re: """Wallbanger@t-online.de""" aus Eurer Verteiung nehmen!!!!!

[Manfred . Beilfuss]

Hello Everybody,


Hallo Sonja,

auch von mir mein herzlichstes Beileid zum Tode Deines Mannes.

Ich uebersetze Dir kurz was Gunnar schon geschrieben hat.

Er spricht Dir auch sein Beileid aus und war so freundlich Deinen Wunsch zu
erfüllen, Deinen leider verstorbenen
Mann aus der Email-Liste auszutragen. Daraufhin wirst Du eine
Bestätigungsemail erhalten, die Du noch mal kurz beantworten musst ( ohne
weiteren Inhalt )! Dann solltest Du keine Emails von der Liste mehr
erhalten.

Hi Gunnar , I just tried to translate you.

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss




   
   
Gunnar 
   
Hjalmarsson  An: [EMAIL PROTECTED] 
  
<[EMAIL PROTECTED]Kopie:   

ar.cc>   Thema:  Re: """[EMAIL PROTECTED]""" aus Eurer 
Verteiung nehmen! 
   
   
29.10.2004 
   
09:13  
   
   
   
   
   




FYI I just sent this message:

 Original Message 
Subject: Re: Bitte schreibe mir in Deutsch !!
Date: Fri, 29 Oct 2004 09:09:42 +0200
From: Gunnar Hjalmarsson
To: Spikema (Sonja Klenner)

Dear Sonja,

Thanks for your note. I did understand most of what you wrote (studied
some German once in school), but please excuse me for still replying in
English.

I'm truly sorry to hear about the death of your husband.

I made an attempt to help you by unsubscribing the address
[EMAIL PROTECTED] from the [EMAIL PROTECTED] mailing list (see
below). That should have resulted in a confirmation message, and if you
just reply to that, you should stop receiving messages from the list.

Hope that will help.

Kind regards,

Gunnar


 Original Message 
Subject: Unsubscribe request
Date: Fri, 29 Oct 2004 08:53:31 +0200
From: Gunnar Hjalmarsson <[EMAIL PROTECTED]>
To: [EMAIL PROTECTED]


--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>








--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: Matching two seperate lines that begin with the same word

[Manfred . Beilfuss]

   
  
"Gavin Henry"  
  
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]
  
me.uk>   Kopie:
  
 Thema:  Matching two seperate lines that 
begin with the same word   
06.10.2004 
  
13:23  
  
   
  
   
  






>>My brain is broken today.

Hi , mine breaks sometimes as well

>>I have a file with a list of installed rpm packages, some of them are
>>duplicated and I want to sort the file/llist and print ones that have the
>>same name, like:

>>yum-2.0.7
>>yum-2.0.8

lately I had a similar case. It was just about which for which user which
sort of file's exist,  which i solved with file::find !
Why don't you read the lines from the file , use split to separate package
name and versions ?

As my mind was broken then as well, I couldn't imagine how to sort the
resulting data ( array or hash ) in perl!

But being a dba I just thought about a table in a database to insert every
entry.
Then I could do all the sorting with sql-help even with perl or without !

Best regards
Manfred
>>Then I am going to clean up the rpmdb

>>Any tips, apart from reading my llama book ;-)


--
Just getting into the best language ever...
Fancy a [EMAIL PROTECTED] Just ask!!!

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 








-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Antwort: use perl to inquire database and send email automatically

[Manfred . Beilfuss]

   
   
Franklin   
   
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]
   
il.com>  Kopie:
   
 Thema:  use perl to inquire database and send 
email automatically
22.09.2004 
   
10:36  
   
Bitte  
   
antworten an   
   
Franklin   
   
   
   
   
   







Hello:

I have a database which refresh every minutes according to the
information on Internet and I provide users to predefine some
condition. When these conditions are matched, my sytem will send them
email to inform them. How can I use perl to realize these
functionalities?

Thank you very much in advance.

Bestwishes
Franklin

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>



Hello Franklin ,

I use  DBI and the DBD::DB2 for my database ( DB2 ) to do the db-related
part and Mail::Sender for sending email in my scripts ! For your database
you would need the specific DBD or just DBD::ODBC !

HTH!

 Best regards

Manfred Beilfuss






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: Edit a file inplace..

[Manfred . Beilfuss]

Hi,

didn't we have had this question shortly ?
As I, being a perl-newbie still, remember correctly you need
( at least under windows with active state )
a extension for a backup file !

If I write :
perl -pibak -ne "s/ERROR/TRACKED/g" status.log
it works under win2k with active-state-perl

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss




   
   
[EMAIL PROTECTED]  
   
edstar.net   An: James Edward Gray II <[EMAIL 
PROTECTED]> 
 Kopie:  Perl Beginners <[EMAIL 
PROTECTED]>, gohaku  
19.07.2004 17:56 <[EMAIL PROTECTED]>   

 Thema:  Edit a file inplace.. 
   
   
   
   
   
   
   








Hi,

I am trying to edit an ASCII file in place?

I tried ?

  perl -pi -ne "s/ERROR/TRACKED/g" status.log

and received?

  Can't do inplace edit without backup?

Any help is appreciated?

Thanks,

Steve





--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: RE: Antwort: FTPing of files between remote servers.

[Manfred . Beilfuss]

Hi Anand,

I don't have enough perl practise to tell how to do it in perl.

But speaking in general terms you will have to copy your ftp-script by any
means available to one of the server
and execute it there.

If it is a perl script you need perl on the server.

You will have to log into the server using e.g. telnet to start the script.
Alternatively if available to you might use remote-shell (rsh) .

On CPAN you find net::telnet and net::rsh to automate what you need with
perl if you like.

I haven't used either of them, but they seem to work similar to net::ftp !


Mit freundlichen Gruessen / Best regards

Manfred Beilfuss




   
  
[EMAIL PROTECTED]  
  
om   An: [EMAIL PROTECTED], [EMAIL PROTECTED]  

 Kopie:  [EMAIL PROTECTED] 
 
20.07.2004   Thema:  RE: Antwort: FTPing of files between 
remote servers.
15:50  
  
   
  
   
  




Hi Manfred Beilfuss,


Thanks for the reply. Could you elaborate on running your perl-script or
any other ftp-script remote script .


Thanks & Best Regards,


Anand






-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Tuesday, July 20, 2004 7:08 PM
To: [EMAIL PROTECTED]
Cc: [EMAIL PROTECTED]
Subject: Antwort: FTPing of files between remote servers.






Hi Anand,


I fear that you will have to run our perl-script or any other ftp-script
remote on one of your servers, if you are bound to the ftp-protocol.
The only alternative is to copy it first to your desktop and then to the
second server.
Sorry but ftp is a protocol between two points.


Mit freundlichen Gruessen / Best regards


Manfred Beilfuss








[EMAIL PROTECTED]

om   An: [EMAIL PROTECTED]

 Kopie:

20.07.2004   Thema:  FTPing of files between
remote servers.
15:09









Hi All,


I am using following code to transfer a file from remote host to local
system.


sub transferEJSFiles{


   $ftp = Net::FTP->new($sourceServer, Timeout => 30) or die "Can't

contact $sourceServer: $!";


   $ftp->login($sourceUser,$sourcePassword) or die "Can't login
($sourceUser):", $ftp->message;





$ftp->cwd("/home/clients/pvcs/adk/Installables/$ejsVersion/ejs/solaris/")
or
die "Cannot change working directory ", $ftp->message;


   $ftp->binary() or die "Cannot Convert to Binary Mode ",
$ftp->message;


   $ftp->get
("setup","$ejsTargetRoot/$ejsVersion/ejs/solaris/setup") or
die "get failed for setup", $ftp->message;


   $ftp->cdup() or die "Can't moveup to parent directory : ",
$ftp->message;





$ftp->get("archive.dat","$ejsTargetRoot/$ejsVersion/ejs/archive.dat") or
die
"get failed for archive", $ftp->message;


   $ftp->quit;
}


Could some suggest how can i transfer a file from one remote host to
another
remote host using FTP module. Is there any way of doing this . Please guide

me


Regards
Anand














-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: FTPing of files between remote servers.

[Manfred . Beilfuss]

Hi Anand,

I fear that you will have to run our perl-script or any other ftp-script
remote on one of your servers, if you are bound to the ftp-protocol.
The only alternative is to copy it first to your desktop and then to the
second server.
Sorry but ftp is a protocol between two points.

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss




   
  
[EMAIL PROTECTED]  
  
om   An: [EMAIL PROTECTED] 
 
 Kopie:
  
20.07.2004   Thema:  FTPing of files between remote 
servers. 
15:09  
  
   
  
   
  




Hi All,

I am using following code to transfer a file from remote host to local
system.

sub transferEJSFiles{

   $ftp = Net::FTP->new($sourceServer, Timeout => 30) or die "Can't
contact $sourceServer: $!";

   $ftp->login($sourceUser,$sourcePassword) or die "Can't login
($sourceUser):", $ftp->message;


$ftp->cwd("/home/clients/pvcs/adk/Installables/$ejsVersion/ejs/solaris/")
or
die "Cannot change working directory ", $ftp->message;

   $ftp->binary() or die "Cannot Convert to Binary Mode ",
$ftp->message;

   $ftp->get
("setup","$ejsTargetRoot/$ejsVersion/ejs/solaris/setup") or
die "get failed for setup", $ftp->message;

   $ftp->cdup() or die "Can't moveup to parent directory : ",
$ftp->message;


$ftp->get("archive.dat","$ejsTargetRoot/$ejsVersion/ejs/archive.dat") or
die
"get failed for archive", $ftp->message;

   $ftp->quit;
}

Could some suggest how can i transfer a file from one remote host to
another
remote host using FTP module. Is there any way of doing this . Please guide
me

Regards
Anand






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Manfred Beilfuß/DVAG ist außer Haus.

[Manfred . Beilfuss]

Ich werde ab  13.05.2004 nicht im Büro sein. Ich kehre zurück am
04.06.2004.

Ich werde Ihre Nachricht nach meiner Rückkehr beantworten. In dringenden
Fällen die DB-Administration betreffend, bitte eine entsprechende Note an
die Adresse dba-intel bzw. dba-host senden



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Re: writing output to file

[Manfred . Beilfuss]

Hi Graeme,



   
   
"Graeme McLaren"   
   
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]

tmail.com>  Kopie: 
   
Thema:  writing output to file 
   
22.04.2004 10:47   
   
   
   
   
   




>>Morning all, I've got a problem where I need to write the output of a
>>program to a file such as:
>>
>>/opt/www/htdig/bin/rundig -vv > output
>>
>>This prints the output to the screen, how to I write this to a file?
And to the file in my place !
Isn't your question a bit off-topic??
>>
>>Cheers,
>>
>>Graeme
>>
_









-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Antwort: Re: book suggestion for atypical beginner ['securiQ.Watchdog': überprüft]

[Manfred . Beilfuss]

   
   
Robin Sheat
   
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]
   
ti.net.nz>   Kopie:
   
 Thema:  What to   
   
07.04.2004   read to understand why to "Use Strict" ? Was 
=> Re: book suggestion for  
13:18atypical beginner 
   
   
   
   
   
   
   







>On Tue, Apr 06, 2004 at 04:21:16PM -0500, Ananda Stevens wrote:
>> So...what book(s) would you suggest for the relative newbie with a clue?
>When I wanted to learn Perl, I could only afford one book, so I got 'The
>Perl Programming Language'. It was OK to learn from given I had plenty
>of experience in other languages, but it isn't big on teaching good
>habits (i.e. it was quite some time before I learnt to use strict), but

Where did you learn to use strict ???

Is there a book or url who discusses any how-to's and eventually some
pro's and con's.

Starting with some of the book's always mentioned in question's like this,
having programmed a lot already in different language, i just scanned the
books for what i missed to know about perl.
Up till today i wrote a nice little bunch of few-liner's in perl which do
what i want them to do.

But none of them work with use strict. Nor do I understand what the strict
messages tell me.


Mit freundlichen Gruessen / Best regards

Manfred Beilfuss

Deutsche Vermögensberatung AG
IT_Systemmanagement , DBA
Münchenerstr. 1
60329 Frankfurt
Tel.: +49 (69) 2384 - 639
Fax: +49 (69) 2384 - 329
Mailto:[EMAIL PROTECTED]
>once you have learnt how to program in it, which you can do fine just by
>walking through it, it also serves as an invaluable reference.
>
>While I can't compare to 'Learning Perl', as 'The PPL' is the only one
>I've used, I would recommend having it around.
>
>--
>Robin <[EMAIL PROTECTED]> JabberID:
<[EMAIL PROTECTED]>
>
>Hostes alienigeni me abduxerunt. Qui annus est?
>
>PGP Key 0x776DB663 Fingerprint=DD10 5C62 1E29 A385 9866 0853 CD38 E07A
776D B663
(See attached file: attjvcu2.dat)



attjvcu2.dat
Description: Binary data
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: Timezone conversion

[Manfred . Beilfuss]

Hi ,

I would try to convert your timestamp with localtime ( see perldoc -f
localtime ) into separate variables and do the computing myself.

But possibly time::localetime suits you and your needs better ???

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss

Deutsche Vermögensberatung AG
IT_Systemmanagement , DBA
Münchenerstr. 1
60329 Frankfurt
Tel.: +49 (69) 2384 - 639
Fax: +49 (69) 2384 - 329
Mailto:[EMAIL PROTECTED]


   
   
"Distribution Lists"   
   
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]

erapy.com>  Kopie: 
   
Thema:  Timezone conversion
   
01.04.2004 22:07   
   
   
   
   
   




can someone give me ideas of how I could covert this date and time stamp
that is in GMT to Central time ?

2004-04-01-19:15:15.525+00:00

Thanks

--


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>









--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: Project Advice Wanted

[Manfred . Beilfuss]

Hi,

there is a open source ticketing-system which I think to be perl-based.
Sören a member of our FrankfurtPM
( see http://frankfurt.perlmongers.de/wiki/?SörenM.LairdSörries ) reported
about it in our internal email-list some time ago.

Sadly I have to admit that I forgot most about it.
But I hope you may find something on sourceforge about it,

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss

Deutsche Vermögensberatung AG
IT_Systemmanagement , DBA
Münchenerstr. 1
60329 Frankfurt
Tel.: +49 (69) 2384 - 639
Fax: +49 (69) 2384 - 329
Mailto:[EMAIL PROTECTED]


   
  
Steve Gross
  
<[EMAIL PROTECTED]An: "'[EMAIL PROTECTED]'" <[EMAIL 
PROTECTED]>   
erica.com> Kopie:  
  
   Thema:  Project Advice Wanted   
  
30.03.2004 
  
17:59  
  
   
  
   
  




I'm at the start of a medium-sized trouble-ticket project that I want to
write in Perl.  This project will have a front-end web interface, Perl for
the CGI and a database in the back end.  It will live in the Windows
domain.
I'm looking for general advice on these topics:
1) Any good Perl/other tool to create screens/web pages?
2) any recommended database interfaces?  I've use ODBC and would like
to
make it general enough to handle a wide variety of conventional databases -
SQL Server, Access, Oracle, MySQL.
3) Any Perl code template systems out there?

Thanks,

Steve

Steve Gross  Tel:(973) 586-8722  x249
IT Manager   Fax:   (973) 586-0450
Fette America, Inc.







--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Antwort: Compilation

[Manfred . Beilfuss]

yes Sir , there are several possibilities e.g. perlapp :

J:\mbf>perlapp -?
PerlApp 5.0.3 build 503
Copyright (C) 1998-2002 ActiveState Corp. All rights reserved.

Usage: perlapp [options...] 

Antwort: Search for a file pattern in a directory tree recursively / Stoting Info on hash's

[Manfred . Beilfuss]

Hey Rajesh,

being a beginner in perl fooling around similar problems like you, I just
have the idea that you might solve the problem by using a hash to store the
information about the file's you have already found .

I've used
($FN,$PATH,$EXT) = fileparse ($File::Find::name,'\..*') ;
to separate the filename, path and extension of file found by file::find as
you may see.

What I didn't solve is to store these information in a hash to sort out
which file's are already found as decribed in chapter 5 of the
perl-cookbook. In chapter 9 of the cookbook they describe how to find the
youngest file of all in a given directory-structure like

use file::find;
@argv = ('.' unles @ARGV;
my ( $AGE , $name );
sub youngest {
return if defined $age && $age > ( stat($_)) [9];
$age = ( stat(-)) [9];
$name = $file::find:.name;
}
find (\&youngest, @ARGV);
print "$name ". scalar(laocaltime($age)) . "\n";

If you join these code-fragments and store filename, path, ext and age into
a hash or other structure you should
be able to solve your problem.

If you succeed could you please tell me how ?

Mit freundlichen Gruessen / Best regards

Manfred Beilfuss

Deutsche Vermögensberatung AG
IT_Systemmanagement , DBA
Münchenerstr. 1
60329 Frankfurt
Tel.: +49 (69) 2384 - 639
Fax: +49 (69) 2384 - 329
Mailto:[EMAIL PROTECTED]


   
   
"Rajesh Dorairajan"
   
<[EMAIL PROTECTED]An: "Perl-Beginners (E-mail)" 
<[EMAIL PROTECTED]>
eweed.com>  Kopie: 
   
Thema:  Search for a file pattern 
in a directory tree recursively 
24.03.2004 04:09   
   
   
   
   
   




Hello All,

I went through all the documentation and previous mail posts about
File::Find and finally decided I needed some help.

I've a directory structure I need to parse. The directory contains
subdirectories with filenames such as

full094382.db
full483292.db

Now, I need to parse through each subdirectory and pick up the name of the
file that was MODIFIED MOST RECENTLY. I do have a sort of a code to start
with.

use strict;
use warnings;

$\ = "\n";

use File::Find;

my $localdir = 'C:/docs';
my @files;

find(
  sub { push ( @fullcrls, $File::Find::name ) if /^(full)\w*(\.db)$/ },
  $localdir );

foreach ( @fullcrls ) {
print;
}

However, I am not able to figure how to filter out the repeat entries in a
sub-directory such as

C:/docs/dir1/full094382.db
C:/docs/dir1/full483292.db
C:/docs/dir2/full482952.db
C:/docs/dir2/full930284.db
.
.
.

In the above example, I need only need filename from dir1 and dir2 that was
last modified. Is there a way to do this filtration in the find( sub {} )
above?

Any help will be deeply appreciated.

Thanks,

Rajesh Dorairajan
[EMAIL PROTECTED]






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

Manfred Beilfuß/DVAG ist außer Haus.

[Manfred . Beilfuss]

Ich werde ab  09.02.2004 nicht im Büro sein. Ich kehre zurück am
16.02.2004.

Ich werde Ihre Nachricht nach meiner Rückkehr beantworten. In dringenden
Fällen die DB-Administration betreffend, bitte eine entsprechende Note an
die Adresse dba-intel bzw. dba-host senden



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Manfred Beilfuß/DVAG ist außer Haus.

[Manfred . Beilfuss]

Ich werde ab  09.02.2004 nicht im Büro sein. Ich kehre zurück am
16.02.2004.

Ich werde Ihre Nachricht nach meiner Rückkehr beantworten. In dringenden
Fällen die DB-Administration betreffend, bitte eine entsprechende Note an
die Adresse dba-intel bzw. dba-host senden



--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
 

Antwort: windows username

[Manfred . Beilfuss]

Hi,

try to read what "perldoc -f stat" tells you!
As being myself a beginner, I haven't tried it yet, just read about it.
HTH!

Best regards
Manfred Beilfuss


Deutsche Vermögensberatung AG


IT-Systemmanagement / DBA


Gutleutstraße 7
60329 Frankfurt


Tel.: +49 (69) 2384 - 639


Mailto:[EMAIL PROTECTED]


   

Kraszi 

<[EMAIL PROTECTED]An: [EMAIL PROTECTED]
   
eemail.hu>Kopie:   

  Thema:  windows username 

11.11.2003 

08:10  

   

   





Hi!

I'm a real beginner. Sorry if I ask some stuőid questions :-)

My problem is: I have more users on my computer. The system is windows
2000/
Xp. They made lot of data files in the same directory for a long time. now
some of users want separate their files. So I have to collect them by
owners.

I started write a script to list recursively the files, but I can't get the

username of the owner of the file.

Maybe somebody can help me!

Thx!

Kraszi


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort: RE: array of arrays

[Manfred . Beilfuss]

Hi,


I don't know what the question really is, may be she asks for a algorythm ?


Then i think she show's, that she


   has $a_min, $a_max, $b_min and $b_max


and that


   $a LE $b


means (($a_min LE $b_min) & ($a_max LE $b_min) ) , that is how i would
compare ranges .





HTH  & best regards


Manfred





   
 
"Stephen   
 
Hardisty"An: "Christiane Nerz" <[EMAIL 
PROTECTED]>, <[EMAIL PROTECTED]>  
<[EMAIL PROTECTED]Kopie:   
  
elabs.com>   Thema:  RE: array of arrays   
 
   
 
20.10.2003 12:37   
 
   
 
   
 




> How do I read data out of a table-file in an array-of-arrays?
>
> Problem: I have to compare two tables with pairs of start-stop-Positions.
> I want to find out, which pair of Start-Stop-Position in table_1 > is
> entirely within the range marked by a pair of start-stop-positions of
> the second table.
> 2..5 would be in 2..6 or 1..7, 45..46 in 23..47 or 40..46 and so on.

Mornin,
how are you getting those ranges? From a database using the DBI module or
from a text file etc?


This email has been scanned for all viruses by the MessageLabs Email
Security System. For more information on a proactive email security
service working around the clock, around the globe, visit
http://www.messagelabs.com


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]






-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Re: How to get fields from a SQL DB one by one

[Manfred . Beilfuss]

Hi ,

if you want "sql-fields" separate you will have to select them separately,
o.K.?
First you will have to have e.g. DBI,
>> #!/usr/local/bin/perl
>>  use DBI;
 then you will need a driver for your db (e.g. dbi::db2 ) or use DBI::ODBC!
use DBD::DB2::Constants;
use DBD::DB2 qw($attrib_int $attrib_char $attrib_float
 $attrib_date $attrib_ts);
Then you will need to connect to that database.
>> # Open a connection and set LongReadLen to maximum size of column
 >> $dbh = DBI->connect("dbi:DB2:$dbname","$user","$passwd", { LongReadLen
=> 102400 } );
>>  if (!defined($dbh)) { exit; }
 And then  select them
  by first define the sql-statement
>> $stmt = "Select tabschema,tabname from syscat.tables where tabschema
= 'Something ' ; ";
  by second prepare und third execute the statement
>>   my $sth = $dbh->prepare($stmt);
>>   $sth->execute();
  and finally fetch the results into local array's :
>>  my $stmt_array_result = $sth->fetchall_arrayref();
>>
>>  foreach my $row (@$stmt_array_result)
>>  {
>>   my ( $schema, $tabname ) = @$row;
>>  ...
>>   }
 and finally don't forget to close everything :
>> # close selection criteria cursor
>>  $sth->finish();
>>  close(OUTPUT);
>>  $dbh->disconnect();

Please note that this only one possibility to that job. after my '>>' you
just find one example for dbi with db2 like I use it, being still a
beginner with perl and dbi not knowing if there are better possibilitites,
but it works out for me!


Manfred Beilfuss


Deutsche Vermögensberatung AG


IT-Systemmanagement / DBA


Gutleutstraße 7
60329 Frankfurt


Tel.: +49 (69) 2384 - 639


Mailto:[EMAIL PROTECTED]





   
   
"Ramprasad"
   
<[EMAIL PROTECTED]An: [EMAIL PROTECTED]
 
ore.co.in> Kopie:  
   
   Thema:  Re: How to get fields from a SQL DB 
one by one 
15.10.2003 
   
14:05  
   
   
   
   
   




On Wed, 15 Oct 2003 12:11:43 +0530, Ramakrishna wrote:

> Hi,
>
> Can any one tell me How to get fields from a SQL Database.
> I need to get each field separately.
>
> Thanks in advance,
> Ramakrishna.S

Which database, Are U using DBI

Ram

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]






--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort: Fwd: required help ['securiQ.Watchdog': überprüft]

[Manfred . Beilfuss]

Hi, short before my weekend just a short example attached, where I use 2
connections to the same database in a sequence, to not mix what happens on
each connection.


If you just alter the connect parms you may connect to different db's and
then submit some insert/update sql's


Hope this helps and have a nice weekend.


best regards


Manfred Beilfuss


(See attached file: grantread.pl)








   
   
James Edward Gray  
   
II   An: [EMAIL PROTECTED] 
  
<[EMAIL PROTECTED]Kopie:   

tions.net>   Thema:  Fwd: required help
   
   
   
10.10.2003 15:40   
   
   
   
   
   




[ forwarded to list by James Gray ]

Begin forwarded message:

> From: vaishali <[EMAIL PROTECTED]>
> Date: Fri Oct 10, 2003  5:06:21  AM US/Central
> To: James Edward Gray II <[EMAIL PROTECTED]>
> Subject: Re: required help
> Reply-To: [EMAIL PROTECTED]
>
> how to define multiple connect statements
>
> Actually I am having one database ie smsd and table sms_log in
> 10.100.208.254.
> I have created one database called smsd and table sms_log1 on
> 10.100.200.47 ie in another machine
>
> I want to insert data from sms_log ie 10.100.208.254 server to
> 10.100.200.47 table ie sms_log1.
>
> how to do this task using perl DBI
>
> fields from sms_log ie 10.100.208.254 are
> sender  char(40)
> receiver char(40)
> sent datetime
>
> fields from sms_log1 ie 10.100.200.47 are
> sender char(40),
> receiver char(40),
> sent datetime,
> dept char(40),
> branch char(40)


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]





grantread.pl
Description: Binary data
-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Re: Mapping network drives with perl on win2k

[Manfred . Beilfuss]

Hi kenneth,

you may try win32::AdminMisc !  It has a module logon where you can specify
uid/passwd. Then you will have the users mappings.

Being myself a perl beginner, I encountered problems to run it.
Possibly you do better and succeed in installing it?


Best regards


Manfred Beilfuss





Deutsche Vermögensberatung AG


IT-Systemmanagement / DBA


Münchener Straße 1
60329 Frankfurt


Tel.: +49 (69) 2384 - 639


Mailto:[EMAIL PROTECTED]


Intern bitte Notes-Kürzel dba-intel verwenden!


Hiermit erreichen Sie die DBA-Gruppe für den Bereich der Intel-Maschinen!


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]





--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort: Mapping network drives with perl on win2k

[Manfred . Beilfuss]

Hi kenneth,

you may try win32::AdminMisc ( from which has a module logon
Mit freundlichen Grüßen


Manfred Beilfuss





Deutsche Vermögensberatung AG


IT-Systemmanagement / DBA


Münchener Straße 1
60329 Frankfurt


Tel.: +49 (69) 2384 - 639


Mailto:[EMAIL PROTECTED]


Intern bitte Notes-Kürzel dba-intel verwenden!


Hiermit erreichen Sie die DBA-Gruppe für den Bereich der Intel-Maschinen!


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]