from:"\"joachim . goerner\""

MLDBM error

2005-04-14 Thread joachim . goerner

I have create/stored the file with DB_File 1.73 
and
with DB_File 1.810 or 1.809 or 1.806 I can not open !


> -Ursprüngliche Nachricht-
> Von: [EMAIL PROTECTED] 
> [mailto:[EMAIL PROTECTED] Im 
> Auftrag von [EMAIL PROTECTED]
> Gesendet: Donnerstag, 14. April 2005 09:58
> An: Perl-Win32-Users@listserv.ActiveState.com
> Betreff: MLDBM error
> 
> 
> sorry for wrong subject
> 
> Hi all,
> please help my:
> I have in perl 5.6.1 635 stored hash with like this
> use MLDBM qw(DB_File);
> tie (my %ZeitDB, 'MLDBM', "PC\\Share\\ZeitDB");
> 
> If I open the hash in my new perl 5.8.6 811  with the same I have:
> 
> MLDBM error: Second level tie failed, "" at ...
> 
> Have somebody a solution ? 
> 
> P.S. delete the file (with lost all data) is not the solution 
> (but work
> fine).
> 
> Best regards/Mit freundlichen Grüssen
> 
> Joachim Görner 
> 
> Informationsverarbeitung Systemtechnik Basisdienste (ISB)
> ADAC e.V., Am Westpark 8, 81373 München
> Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
> 
> www.adac.de 
> 
> ___
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

MLDBM error

2005-04-14 Thread joachim . goerner

sorry for wrong subject

Hi all,
please help my:
I have in perl 5.6.1 635 stored hash with like this
use MLDBM qw(DB_File);
tie (my %ZeitDB, 'MLDBM', "PC\\Share\\ZeitDB");

If I open the hash in my new perl 5.8.6 811  with the same I have:

MLDBM error: Second level tie failed, "" at ...

Have somebody a solution ? 

P.S. delete the file (with lost all data) is not the solution (but work
fine).

Best regards/Mit freundlichen Grüssen

Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB)
ADAC e.V., Am Westpark 8, 81373 München
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 

www.adac.de 

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

AW: Windows Tasks

2005-04-14 Thread joachim . goerner

Hi all,
please help my:
I have in perl 5.6.1 635 stored hash with like this
use MLDBM qw(DB_File);
tie (my %ZeitDB, 'MLDBM', "PC\\Share\\ZeitDB");

If I open the hash in my new perl 5.8.6 811  with the same I have:

MLDBM error: Second level tie failed, "" at ...

Have somebody a solution ? 

P.S. delete the file (with lost all data) is not the solution (but work
fine).

Best regards/Mit freundlichen Grüssen

Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB)
ADAC e.V., Am Westpark 8, 81373 München
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 

www.adac.de 

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

what's wrong in Win32-OLE, DBD-ADO, Dynaloader or ............. i n my script

2005-03-15 Thread joachim . goerner

> Hi all,
> 
> if I write:
> -- Begin snip 
> $|++;use strict;use warnings;
> #use DBD::ADO;
> #*1)
> use DBI;
> our ($dbh,$sth);
> my $DB="dbi:ADO:driver=Microsoft Access Driver
> (*.mdb);DBQ=Konverter.mdb;DRIVERID=25;DEFAULTDIR=M:\\TestLib\\Konverter_NE
> U\\;";
> $dbh=Connect($DB.'{AutoCommit=>0}')or die;
> $sth=Prepare ("INSERT INTO [TAB] VALUES (?,?)",$DB);   # *2)
> sub Connect {
>   my $dbh = DBI->connect_cached(($_[0]=~/dbi:/i)?"$_[0]":"dbi:ODBC:$_[0]")
> 
>or die "Error connecting
> dbi:ODBC:$_[0]".$DBI::errstr."\n";return $dbh
> }
> sub Prepare {my $sth=Connect($_[1])->prepare($_[0]) or die
> $DBI::errstr."\n";return $sth}
> END{print "1\n";
> $main::sth->finish;
> #  *2)
> print "2\n";$main::dbh->disconnect;print "3\n"}
> -- End snip 
> 
> I have this:
> 
> --Begin STDOUT
> --
> 1
> 2
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
> 3
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
> --End STDOUT
> --
> 
> if I uncomment 'use DBD::ADO' (*1) ) I have:
> 
> --Begin STDOUT
> --
> 1
> 2
> 3
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
> --End STDOUT
> --
> 
> if I comment lines*2)(no prepare) and uncomment line   *1)
> I have correct run
> 
> --Begin STDOUT
> --
> 1
> 2
> 3
> --End STDOUT
> --
> 
> if I comment lines*2)(no prepare) and comment line   *1)
> I have 
> 
> --Begin STDOUT
> --
> 1
> 2
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
> Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
> C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
> 3
> --End STDOUT
> --
> 
> what's wrong ? ? ? 
> 
> I need the access AND the prepare AND the clear up in END-Block
> I need not the warnings/errors from Win32::OLE
> what's the difference I load 'DBD::ADO' in my script or DBI load
> 'DBD::ADO' ? ?
> 
> 
> I have: Perl v5.8.6 Binary build 811
>   DBI 1.46
>   Win32::OLE 0.1702
>   DBD::ADO 2.94 
>   w2k SP4
> 
> Bests regards/Mit freundlichen Grüssen 
> Joachim Görner 
> 
> Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
> ADAC e.V., Am Westpark 8, 81373 München 
> Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
>  > 
> www.adac.de   
> 
> 

___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

what's wrong in Win32-OLE, DBD-ADO, Dynaloader or ............. i n my script

2005-03-15 Thread joachim . goerner

Hi all,

if I write:
-- Begin snip 
$|++;use strict;use warnings;
#use DBD::ADO;
#*1)
use DBI;
our ($dbh,$sth);
my $DB="dbi:ADO:driver=Microsoft Access Driver
(*.mdb);DBQ=Konverter.mdb;DRIVERID=25;DEFAULTDIR=M:\\TestLib\\Konverter_NEU\
\;";
$dbh=Connect($DB.'{AutoCommit=>0}')or die;
$sth=Prepare ("INSERT INTO [TAB] VALUES (?,?)",$DB);   # *2)
sub Connect {
  my $dbh = DBI->connect_cached(($_[0]=~/dbi:/i)?"$_[0]":"dbi:ODBC:$_[0]") 
   or die "Error connecting
dbi:ODBC:$_[0]".$DBI::errstr."\n";return $dbh
}
sub Prepare {my $sth=Connect($_[1])->prepare($_[0]) or die
$DBI::errstr."\n";return $sth}
END{print "1\n";
$main::sth->finish;
#  *2)
print "2\n";$main::dbh->disconnect;print "3\n"}
-- End snip 

I have this:

--Begin STDOUT
--
1
2
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
3
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
--End STDOUT --

if I uncomment 'use DBD::ADO' (*1) ) I have:

--Begin STDOUT
--
1
2
3
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154 during global destruction.
--End STDOUT --

if I comment lines*2)(no prepare) and uncomment line   *1)
I have correct run

--Begin STDOUT
--
1
2
3
--End STDOUT --

if I comment lines*2)(no prepare) and comment line   *1)  I
have 

--Begin STDOUT
--
1
2
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
Win32::OLE(0.1702): GetOleObject() Not a Win32::OLE object at
C:/Perl/site/lib/Win32/OLE/Lite.pm line 154.
3
--End STDOUT --

what's wrong ? ? ? 

I need the access AND the prepare AND the clear up in END-Block
I need not the warnings/errors from Win32::OLE
what's the difference I load 'DBD::ADO' in my script or DBI load  'DBD::ADO'
? ?


I have: Perl v5.8.6 Binary build 811
  DBI 1.46
  Win32::OLE 0.1702
  DBD::ADO 2.94 
  w2k SP4

Bests regards/Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 > 
www.adac.de   



___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

cdo Object or String

2004-11-24 Thread joachim . goerner

Hi all,
I found in
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_o
lemsg_fields_property_infostore_object_.asp :
--- snip -
CDO 1.2.1 
Fields Property (InfoStore Object) 
The Fields property returns a single Field object or a Fields collection
object. Read-only. 
Syntax 
objInfoStore.Fields 
objInfoStore.Fields(index) 
objInfoStore.Fields(proptag) 
objInfoStore.Fields(name) 
--- end snip -
and
--- snip -
If your application is running as a Microsoft Windows NT® service, you
cannot access the Microsoft Exchange Public Folders through the normal
hierarchy because of a notification conflict. You must use the InfoStores
Fields property to obtain the Microsoft Exchange property
PR_IPM_PUBLIC_FOLDERS_ENTRYID, property tag &H66310102. This represents the
top-level public folder and allows you to access all other public folders
through its Folders property. 
Example 
This code fragment accesses the root of the Public Folders subtree of a
message store: 
Dim objSess As Session ' assume logged on to valid session
Dim objInfoStore As InfoStore ' assume opened and valid
Dim strPFRootID As String ' binary entry ID returned as hex string
Dim objPFRoot As Folder ' root folder of Public Folders
tagPFRootID = &H66310102 ' PR_IPM_PUBLIC_FOLDERS_ENTRYID
strPFRootID = objInfoStore.Fields(tagPFRootID) ' entry ID
???
MsgBox "Public Folders root folder ID = " & strPFRootID
Set objPFRoot = objSession.GetFolder(strPFRootID)
--- end snip -
if I write:
--- snip -
$cdo=Win32::OLE->new("MAPI.Session");
$cdo->logon();
foreach (in $cdo->{Infostores}){
   if (my $RootID=$_->Fields(1714487554)){# 1714487554 = &H66310102
  
--- end snip -
$RootID is object and not string 
This object is a field-object from infostore and has not 
an identifier for a folder (I need for $folder=$cdo->GetFolder($RootID);)
!!

Is that my error ?
or is 2 errors in the µsoft's 
web-page (1. String is not object;
  2. Fields-object not contains folder-ID) ?



Best regards/Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 
www.adac.de 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

AW: Probably need help with a hash to do this

2004-11-10 Thread joachim . goerner

> -Ursprüngliche Nachricht-
> Von: steve silvers [mailto:[EMAIL PROTECTED] 
> Gesendet: Mittwoch, 10. November 2004 17:02
> An: [EMAIL PROTECTED]
> Betreff: Probably need help with a hash to do this
> 
> 
> I have no idea how to do this. I have tens of thousands of 
> lines in a text 
> file that houses numbers for internal purposes. There are 
> usually 20 on a 
> line, with a range of (01 - 80).
> 
> Example:
> 
> my @data = (
> '08|10|13|16|19|22|28|32|33|37|41|46|47|50|51|52|53|55|71|76',
> '06|11|16|19|20|29|31|35|39|44|50|57|58|59|60|62|71|72|76|77',
> '03|05|06|08|09|10|11|16|17|28|31|41|42|43|45|46|56|61|69|79',
> '05|07|12|13|15|16|17|19|21|25|41|45|47|48|53|58|63|69|76|79',
> '01|02|04|07|08|12|17|19|25|27|29|34|38|44|47|60|62|64|73|75',
> '01|04|06|07|08|09|11|13|14|19|25|26|37|39|41|60|61|62|63|80',
> '04|07|09|17|19|27|28|29|39|41|46|51|52|54|57|58|60|68|74|80'
> );
> 
> foreach (@data) {
>  split(/|/,$_)

-
foreach (@data) {map{$a{$_}++}split(/\|/,$_)}
print "$_ is  $a{$_} times found \n" for sort keys %a
--

>  # Here is where I need to run "I think a hash" to tell 
> me the two, 
> three, four, five, numbers that appear on each line out of 
> the above 7 
> lines. As an example;
> 
> say I only have two lines in my text file.
> 
> 01|02|03|04|05
> 01|03|05|33|36
> 
> The output needs to say that the above found 01,03,05 in the 
> two sets of 
> numbers.
> Does this make sense? I'm sure this is pretty easy for 
> someone who know 
> hashes real good.
> 
> }
> 
> Any help greatly appreciated
> Steve
> 
> 
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

AW: Formatting seconds help

2004-11-02 Thread joachim . goerner

for $seconds(3598 .. 3661) {
  $_=gmtime $seconds;/(\d\d):(\d\d):(\d\d)/;
  0+$1 && printf "%d hour ",$1;
  0+$2 && printf "%d minutes",$2;
  0+$3 && (($1 || $2) && print (" and "),printf "%d seconds",$3);print "\n"
}
give me:
-- Perl --
59 minutes and 58 seconds
59 minutes and 59 seconds
1 hour 
1 hour  and 1 seconds
1 hour  and 2 seconds
1 hour  and 3 seconds
1 hour  and 4 seconds
1 hour  and 5 seconds
1 hour  and 6 seconds
1 hour  and 7 seconds
1 hour  and 8 seconds
1 hour  and 9 seconds
1 hour  and 10 seconds
1 hour  and 11 seconds
1 hour  and 12 seconds
1 hour  and 13 seconds
1 hour  and 14 seconds
1 hour  and 15 seconds
1 hour  and 16 seconds
1 hour  and 17 seconds
1 hour  and 18 seconds
1 hour  and 19 seconds
1 hour  and 20 seconds
1 hour  and 21 seconds
1 hour  and 22 seconds
1 hour  and 23 seconds
1 hour  and 24 seconds
1 hour  and 25 seconds
1 hour  and 26 seconds
1 hour  and 27 seconds
1 hour  and 28 seconds
1 hour  and 29 seconds
1 hour  and 30 seconds
1 hour  and 31 seconds
1 hour  and 32 seconds
1 hour  and 33 seconds
1 hour  and 34 seconds
1 hour  and 35 seconds
1 hour  and 36 seconds
1 hour  and 37 seconds
1 hour  and 38 seconds
1 hour  and 39 seconds
1 hour  and 40 seconds
1 hour  and 41 seconds
1 hour  and 42 seconds
1 hour  and 43 seconds
1 hour  and 44 seconds
1 hour  and 45 seconds
1 hour  and 46 seconds
1 hour  and 47 seconds
1 hour  and 48 seconds
1 hour  and 49 seconds
1 hour  and 50 seconds
1 hour  and 51 seconds
1 hour  and 52 seconds
1 hour  and 53 seconds
1 hour  and 54 seconds
1 hour  and 55 seconds
1 hour  and 56 seconds
1 hour  and 57 seconds
1 hour  and 58 seconds
1 hour  and 59 seconds
1 hour 1 minutes
1 hour 1 minutes and 1 seconds

Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 
www.adac.de 



> -Ursprüngliche Nachricht-
> Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
> Gesendet: Dienstag, 2. November 2004 19:02
> An: [EMAIL PROTECTED]
> Betreff: Formatting seconds help
> 
> 
> Does anyone have a simple routine or a way that I can
> format my seconds. Say I have:
> 
> $seconds = '3600';
> I want the output to say "1 hour"
> 
> $seconds = '5567';
> I want the output to say "1 hour 54 minutes and 64 seconds"
> 
> Something like that that will break down the amount of
> days, hours, minutes, and seconds.
> 
> Thank you
> Allan
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Excel table can not delete

2004-10-29 Thread joachim . goerner

Hi all,
this:
--
use DBI;
my $dbh=DBI->connect(
 "DBI:ADO:driver=Microsoft Excel Driver(*.xls);READONLY=FALSE;".
"CREATE_DB=$Ziel;DBQ=$Ziel;",{RaiseError=>1});
$dbh->do("DROP TABLE TAB\$");
$dbh->disconnect();
--
makes the table TAB empty  !
However, I want to delete the table! (I have more than one table)
What is wrong ?

This box had no excel installation ! (OLE can not do)



Best regards/Mit freundlichen Grüssen
Joachim Görner 
Informationsverarbeitung Systemtechnik Basisdienste (ISB)
ADAC e.V., Am Westpark 8, 81373 München
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 >
www.adac.de   


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Linger time of socket in Win32::Internet ?

2004-09-09 Thread joachim . goerner

Hello all, 

its possible to set the linger time (in SO_LINGER) of a socket if I have the
objects from  Win32::Internet  ?


use Win32::Internet;
$INET=new Win32::Internet();
$res=$INET->FTP($FTP,);# Wat is in $res ?
$FTP->QueryOption('67');  # > Error 12018 The supplied handle is the
wrong type for the requested operation
  # '67' is for INTERNET_DIAGNOSTIC_SOCKET_INFO
and give a structure with Socket descriptor inside (I hope)
$INET->QueryOption('67'); # > Error 12018 The supplied handle is the
wrong type for the requested operation
  # '67' is for INTERNET_DIAGNOSTIC_SOCKET_INFO
and give a structure with Socket descriptor inside (I hope)
$FTP->Close(); # the socket must also close after the linger time
-

If I kill the script ---> all opened sockets must close --> I hope this is
possible over DataReciveTimeout, 
DataSendTimeout, ControlReceiveTimeout, ControlSendTimeout and Linger time


Best regards/Mit freundlichen Grüssen
Joachim Görner 
Informationsverarbeitung Systemtechnik Basisdienste (ISB)
ADAC e.V., Am Westpark 8, 81373 München
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 

www.adac.de  
 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Control IBM Personal Communications

2004-06-01 Thread joachim . goerner

Hi all,

how can I Control "IBM Personal Communications" with perl ?


Objects:  'PCOMM.autECLSession.1'
  'PCOMM.autECLOIA.1'?
  'PCOMM.autECLPS.1' ?

I would be happy if anybody have a example script !

thanks

Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 
www.adac.de 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Can I unzip with perl a WinZip does had a password ?

2003-09-16 Thread joachim . goerner

Hi all,

Can I extract with perl a WinZip-file which is protected with a password ?

I looked in 'Archive::Zip' and can find no password-parameter.

Best regards/Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
 > 
www.adac.de   



___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Logon by cdo

2003-08-25 Thread joachim . goerner

> Hi all,
> if I run this:
> --
> -
> use Win32::OLE;
> use Win32::OLE::Const;
> Win32::OLE-> Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
> $cdo = Win32::OLE-> new("MAPI.Session");
> $cdo-> Logon("","",0,1,0,0,'Server'."\n".'Mailbox') ;
> --
> --
> by a computer where the user of Mailbox is not logon, I have a 
> message-box "Enter Password" with ask me for "User Name", Domain Name" and
> "Password".
> 
> How can I make this informations in the script ? ?
> 
> 
> 
> Mit freundlichen Grüssen | best regards
> Joachim Görner 
> 
> Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
> ADAC e.V., Am Westpark 8, 81373 München 
> Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
>  > 
> www.adac.de   
> 
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

AW: What is wrong with this?

2003-08-14 Thread joachim . goerner

chomp missing

Mit freundlichen Grüssen 
Joachim Görner 

Informationsverarbeitung Systemtechnik Basisdienste (ISB) 
ADAC e.V., Am Westpark 8, 81373 München 
Tel.: (089) 76 76 27 83 Fax: (089) 76 76 28 82 
mailto:[EMAIL PROTECTED] 
www.adac.de 



-Ursprüngliche Nachricht-
Von: steve silvers [mailto:[EMAIL PROTECTED]
Gesendet: Dienstag, 12. August 2003 15:53
An: [EMAIL PROTECTED]
Betreff: What is wrong with this?


I don't understand why the output of the below snippet kind of blows up..

--TEXT FILE test.txt--

03|04|09|14|15|18|24|27
09|23|24|26|27|28|33|35
10|11|13|15|17|18|19|22
07|08|13|17|22|23|24|25
03|06|07|08|11|12|16|17
02|05|06|09|12|18|19|22

--SCRIPT

#!Perl -w

use strict;
use vars qw(%counts $numbers @numbers);

open(FILE,"test.txt") || die "Can't open file $^E";
while() {
chomp;#
<---
---
push(@numbers, split(/\|/,$_));
}
close(FILE);

# -
# Get Count..

$counts{$_}++ foreach @numbers;

foreach (sort { $counts{$b} <=> $counts{$a} } keys %counts) {
print qq( $_ - $counts{$_} \n);
}


-- RESULTS --

18 - 3
24 - 3
09 - 3
07 - 2
23 - 2
15 - 2
08 - 2
17 - 2
19 - 2
03 - 2
11 - 2
12 - 2
13 - 2
06 - 2
22 - 2
22
- 1
25
- 1
17
- 1
35
- 1
27
- 1
02 - 1
05 - 1
16 - 1
33 - 1
04 - 1
26 - 1
10 - 1
14 - 1
27 - 1
28 - 1


Why do the last numbers as it seems is blowing out and not keep a nice form 
like the rest of the results?
It seems likes it's just the last numbers?

22
- 1
25
- 1
17
- 1
35
- 1
27
- 1

Any suggestions
Steve

_
MSN 8 helps eliminate e-mail viruses. Get 2 months FREE*.  
http://join.msn.com/?page=features/virus

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

MLDBM error

MLDBM error

AW: Windows Tasks

what's wrong in Win32-OLE, DBD-ADO, Dynaloader or ............. i n my script

what's wrong in Win32-OLE, DBD-ADO, Dynaloader or ............. i n my script

cdo Object or String

AW: Probably need help with a hash to do this

AW: Formatting seconds help

Excel table can not delete

Linger time of socket in Win32::Internet ?

Control IBM Personal Communications

Can I unzip with perl a WinZip does had a password ?

Logon by cdo

AW: What is wrong with this?

14 matches

Site Navigation

Mail list logo

Footer information