reference of an array into an array

Hello together, I try to write some arrays into arrays using references. my ($a, $b, $c, @mytemp, $myref, @my_globael_array) while(<$myfile>) { ($a, $b $c ) = getparameter(); @mytemp = ($a, $b, $c); $myref = \...@mytemp; push(@my_global_array, $myref); } But if I dismantle @my_globa

linked list in perl

Hello out there, I need a Tipp how I can create a linked ring-list in Perl. I know well that arrays in Perl are already realized as linked list, but what I need is a ring-list. Means that at the last element owns a reference to the first element. Has anybody an idea how to make it? Thanks

linked list

nside the loop as global ( our ) then it puts me only the last node out. What did I wrong? Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Inte

linked list again.

nside the loop as global ( our ) then it puts me only the last node out. What did I wrong? Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Inte

linked list

nd it is not clear to me where reverences were build from one node to another. This should be at $node[0]. But this reverence get nerver been held in the loop. Each round the new node overrides the old and only the tail points on the actual element!? Thank you very much Gruss Christi

options and arguments

n ist: and the input What is the problem? Thank you. Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Internet: www.imbei.de -- To unsubsc

Re: strict & getopt()

pragma. warnings? How does this works? #!/usr/bin/perl warnings or use warnings; ? I just tested it, and both were accepted. Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852

strict & getopt()

Hello together, I have a new problem. What can I do to use getopt() and use strict? If I use strict I have to declare all of my variables. And if I do this, perl ignores my getopt(s) single-chars. Is this normal? What can I do to solve this? I want to use perl with "-w" option and the "strict

Re: cannot call a process via telnet

gt; 'komm-test.pl', Prompt => '/\[datagate\]\/KOMM\/datagate\/STALP\/PERL\/BERT > /'); Hope this helps anybody who'll encounter the same problem ... MIND THE PROMPT ;-) Thanks all for help Gruss Christian -- Christian Stalp Institut für Medizinis

Re: cannot call a process via telnet

> It appears from the docs that the C method can take a timeout as > well. I suspect adding the '&' will cause problems because the shell > will return control to Net::Telnet and there will be no way to > communicate with the process. Note that when you switch to include > other arguments with C

Re: cannot call a process via telnet

s absolutly normal because the script which is called takes a lot of time to execute. But to call it with an '&' dosn't fix it neighter What can I do in this case? Thank you very much... Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiolo

Re: cannot call a process via telnet

) or die "cannot change dir!\n"; $rs = $t->print ( "./komm-test.pl" ) or die "cannot start script!\n"; print "$rs\n"; $t->close (); } It runs without any errors but also without purpose, because it doesn't start the script on the remote host. :-\

Re: cannot call a process via telnet

is gives me a hint of whats going wrong. Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Internet: www.imbei.de -- To unsubscribe, e-mail: [EMAI

cannot call a process via telnet

Gruss Christian P.S by the way, I can see that the script doesn't start because "komm-test.pl creates a file if it starts! -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-M

Re: server is numb?

Okay okay, it shold call: while ( $client = $server->accept () ) { print "$client \n"; } close ( $server ); __END_ And so it works, but not as I need. The output is IO::Socket::INET=GLOB(0x81848d0) Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie,

server is numb?

Hello together, I just tryed to make a simple Socket-Connection with a client and a server which are connected with each other over localhost. the server: #!/usr/bin/perl use IO::Socket; use strict; my $server_port = 3434; my $server; my $client; my $in_line; $server = IO::Socket::INET-> new (

extern varibales

time I tell this functions this pathes with parameters but this is very long windet. Does anybody know another solution. Do we have in perl something like a scope EXTERN linke in C ? Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI

reading encrypted files

this I want to change, because of several reasons ;-)) What is the best solution for this problem? Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED

Re: UnixODBC

.32/UnixODBC.pm And so I ask, is there a way to combine these? Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Internet: www.imbei.de -- To u

problems while building Tk

he problem? Thank you Gruss Christian -- Christian Stalp Institut für Medizinische Biometrie, Epidemiologie und Informatik (IMBEI) Obere Zahlbacher Straße 69 55131 Mainz Tel.: 06131/ 17-6852 E-Mail: [EMAIL PROTECTED] Internet: www.imbei.de -- To unsubscribe, e-mail: [EMAIL PROTECTED] For

problems while building Tk

Hello out there... I have some trouble building the Tk for HPUX. My Eviroment is: HPUX 10.20 on PA-RISC Perl V 5.8.3 gcc 3.3.2 After the call of perl Makefile.PL I got this dumped: perl is installed in /usr/local/lib/perl5/5.8.3/PA-RISC2.0 okay PPM for perl5.008003 Test Compiling config/signedcha

Re: problems while building Tk on HPUX

> Do you have X windows installed? It appears it can't find the X > headers. Also not sure why it is looking in /include for them, not even > sure it is looking in there? Do you have any -I switches configured, or > an INCLUDE_PATH?? > > http://danconia.org We have installed X but as it seems, w

docu of the Perl-makefile

Hi out there, where I can find some informations to modfiy the behavior of perl-Makefiles. Like: perl Makefile:PL cc=/usr/bin/gcc or to change the include-path aso. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

problems while building Tk on HPUX

Hello together, I got some errors while I tryed to build Tk on my HPUX-Box. My enviroment HPUX 10.20 on HPPA gcc version 3.3.2 perl 5.8.3 Tk 804.027 perl Makefile.PL perl is installed in /usr/local/lib/perl5/5.8.3/PA-RISC2.0 okay PPM for perl5.008003 Test Compiling config/signedchar.c Test Compil

building DBI

Hallo again, I still hanging at my problem with buidling the Perl:DBI - module! My enviroment is: Summary of my perl5 (revision 5.0 version 8 subversion 3) configuration: Platform: osname=hpux, osvers=10.20, archname=PA-RISC2.0 uname='hp-ux imserv03 b.10.20 a 9000810 2015410517 two-user

problem while building DBD:Adabas

Hello out there, I try to build a DBD:Adabas driver for DBI. And I got this dump: # perl Makefile.PL Configuring DBD::Adabas ... >>> Remember to actually *READ* the README file! And re-read it if you have any problems. Multiple copies of Driver.xst found in: /usr/local/lib/perl5/5.

globals at dbi

Hello world\n ;-) Im wondering about my perl. With this code: #!/usr/local/bin/perl use DBI; use strict; print "Test\n"; ::$my_user = "blabla"; my $password = "bloobbloob"; my $logon = Adabas::logon("demo,adabas","mycomp:mydb"); I got somethink like that: Global symbol "$chris_test_var" req

Re: error while building perl

Hey Jose, the output is: core file size (blocks) 2097151 data seg size (kbytes) 65536 file size (blocks) unlimited max memory size (kbytes)unlimited open files 2048 pipe size (512 bytes) 16 stack size (kbytes) 8192 cpu time (seconds) unl

error while building perl

Hello, I just tryed to build perl with the gcc and got this dumped: `sh cflags "optimize='-O2'" toke.o` toke.c CCCMD = /opt/gcc/bin/gcc -DPERL_CORE -c -D_HPUX_SOURCE -DUINT32_MAX_BROKEN -fno-strict-aliasing -D_LARGEFILE_SOURCE -DARG_ZERO_IS_SCRIPT -O2 -Wall toke.c: In funct

Re: installing DBI on HPUX

> You either need the HP ANSI C compiler or GCC. Since you seem to use a perl > which was build using the HP ANSI C compiler it's easiest to install that > compiler on the system you're trying to get DBI to work. However, you need > to PAY for that compiler so you might want to switch to GCC. I'

Re: installing DBI on HPUX

I tryed it at another way. I got an older version: DBI-1.21 because I still use perl 5.6 not 5.6.1! perl Makefile.pl works, all is fine. But now I get this: (Bundled) cc: warning 480: The -A option is available only with the C/ANSI C product; ignored. (Bundled) cc: warning 480: The -O option i

installing DBI on HPUX

Hello together, I have a problem! I use a HP-PaRisc Server with HPUX 10.20 and I just tried to install the DBI-module for Perl. After calling: perl Makefile.PL I got this warning: Warning: prerequisite Test::More failed to load: Can't locate Test/More.pm in @INC (@INC contains: lib /opt/perl5/lib

Re: tempfile

> Did you find a way to set the filename to "temp_file.lock"? The OP has > obviously RTFM. Is no problem now with: open LOCK_FH , ">$file_name" or die "cannot create hanlde!\n"; . . . close LOCK_FH; unlink ( $file_name ) or warn "cannot delete !\n"; I can do what I want to do. I just thought t

tempfile

Hello together, I want to create a tempfile via the function tempfile. But I want a certain path and name for the file. The option DIR and SUFFIX and s.o. is clear to me but how can I set the name of the file? For Exam: temp_file.lock or somethink like that!? Gruss Christian -- To unsubscribe,

export of getopts

Hello together, Im looking for a method to tell my program that it has to put out debug statements. With getopts("d") I allready managed that my main-routine does this. But the subroutines I realized as packages in their own files. So when I call my subroutines via package::methode() they don't

how to make sure, that the script is running one time?

Hello together, I have a question regarding process-control. I want to write a perl script which must not running in more than one process in the same time. The script creates a directory copys a zip-file in it, unpack it and reads every file in this package. However, the files must not get open