Login or Register to Ask a Question and Join Our Community


Shell Programming and Scripting

How to load a hash with a file in Perl

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting How to load a hash with a file in Perl
# 1  
Old 01-28-2011
How to load a hash with a file in Perl
Hi to everybody.

I have a script in AWK with a revursive function, when I make the recursive call I'm loosing values in the local variables. So I'm trying to do the script in Perl, but I don't know Perl.

I want to load several hashes with the data in a pipe separated file. In AWK it looks like

Code:
NR==FNR{
  fun_arc[$2]=$1
  arc_fun[$1]=$2
  sinLlamar[$1]
  llamar[$1]
  next
}

And in Perl

Code:
open (arch, "<FuncXArch.txt.analisis2.fil") || die "No se puede abrir el archivo directorio de definicion de funciones";
while (<arch>){
  chomp;
  @campos=split(/\|/);

  $fun_arc{$campos[2]}=$campos[1];
  $arc_fun{$campos[1]}=$campos[2];
  $sinLlamar{$campos[1]}="";
  $llamar{$campos[1]};
}
close arch;

for ( ($k, $v) = each %sinLlamar ){
  print "Funcion sin llamar [$k]\n"
}

When I print the content in hash it just show two values and are the same value. Where is my mystake?

Thanks in advance.
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Programming

Perl: restrict perl from automaticaly creating a hash branches on check

My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence. I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have ... (2 Replies)
Discussion started by: alex_5161
2 Replies

2. Programming

Perl: How to load some functions automaticaly, starting Perl inteructively (with -d -e 0)?

I would like to use Perl in 'interactive' mode (kind off), starting it by > perl -d -e 0; But I need to have some function be read on loading. Also, it should not be for anyone who starting Perl or use it any how. I did try to search, but not much result. I have try a file '.perldb':... (1 Reply)
Discussion started by: alex_5161
1 Replies

3. Shell Programming and Scripting

Compare values of hashes of hash for n number of hash in perl without sorting.

Hi, I have an hashes of hash, where hash is dynamic, it can be n number of hash. i need to compare data_count values of all . my %result ( $abc => { 'data_count' => '10', 'ID' => 'ABC122', } $def => { 'data_count' => '20', 'ID' => 'defASe', ... (1 Reply)
Discussion started by: asak
1 Replies

4. Shell Programming and Scripting

Perl script to Archive the data file after the load

I have written a perl scripts which loads the data. Now i want to modify the script, to Archive the Input file after the successful load of data. Can anyone please share it and help me .... Thanks. (2 Replies)
Discussion started by: msrahman
2 Replies

5. UNIX for Advanced & Expert Users

perl text file processing using hash

Hi Experts, I have this requirement to process large files (200MB+).Format of files is like: recordstart val1 1 val2 2 val3 4 recordstart val1 5 val2 6 val3 1 val4 1 recordstart val1 ... (4 Replies)
Discussion started by: mtomar
4 Replies

6. Shell Programming and Scripting

perl hash - using a range as a hash key.

Hi, In Perl, is it possible to use a range of numbers with '..' as a key in a hash? Something in like: %hash = ( '768..1536' => '1G', '1537..2560' => '2G' ); That is, the range operation is evaluated, and all members of the range are... (3 Replies)
Discussion started by: dsw
3 Replies

7. Shell Programming and Scripting

Perl Hash:Can not keep hash data in the same order that it was inserted

Can Someone explain me why even using Tie::IxHash I can not get the output data in the same order that it was inserted? See code below. #!/usr/bin/perl use warnings; use Tie::IxHash; use strict; tie (my %programs, "Tie::IxHash"); while (my $line = <DATA>) { chomp $line; my(... (1 Reply)
Discussion started by: jgfcoimbra
1 Replies

8. Shell Programming and Scripting

PERL: reading 2 column data into Hash file

I am trying to read in a 2 column data file into Perl Hash array index. Here is my code. #!/usr/bin/perl -w use strict; use warnings; my $file = "file_a"; my @line = (); my $index = 0; my %ind_file = (); open(FILE, $file) or die($!); while(<FILE>) { chomp($_); if ($_ eq '') { ... (1 Reply)
Discussion started by: subhap
1 Replies

9. Shell Programming and Scripting

perl hash

Hi i am reading one file and creating Hash from the contents of it my issue is there are 3 different files in 3 different locations having same structure so for parsing these files i have one subroutine which returns hash after reading all the 3 files i need to create consolidated hash from three... (2 Replies)
Discussion started by: zedex
2 Replies

10. Shell Programming and Scripting

Perl script to load text file into DB field

Hello, maybe this post is offtopic, sorry for the inconveniencies (maybe should be in the forum with questions about C, C++, Java, SQL...). I found examples about how to populate different fields from a text file (with MySQL, the LOAD DATA INFILE sentece), but not about how to load a complete... (2 Replies)
Discussion started by: aristegui
2 Replies
Login or Register to Ask a Question

LEARN ABOUT DEBIAN

plack::app::cgibin

Plack::App::CGIBin(3pm) 				User Contributed Perl Documentation				   Plack::App::CGIBin(3pm)

NAME

       Plack::App::CGIBin - cgi-bin replacement for Plack servers

SYNOPSIS

	 use Plack::App::CGIBin;
	 use Plack::Builder;

	 my $app = Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app;
	 builder {
	     mount "/cgi-bin" => $app;
	 };

	 # Or from the command line
	 plackup -MPlack::App::CGIBin -e 'Plack::App::CGIBin->new(root => "/path/to/cgi-bin")->to_app'

DESCRIPTION

       Plack::App::CGIBin allows you to load CGI scripts from a directory and convert them into a PSGI application.

       This would give you the extreme easiness when you have bunch of old CGI scripts that is loaded using cgi-bin of Apache web server.

HOW IT WORKS

       This application checks if a given file path is a perl script and if so, uses CGI::Compile to compile a CGI script into a sub (like
       ModPerl::Registry) and then run it as a persistent application using CGI::Emulate::PSGI.

       If the given file is not a perl script, it executes the script just like a normal CGI script with fork & exec. This is like a normal web
       server mode and no performance benefit is achieved.

       The default mechanism to determine if a given file is a Perl script is as follows:

       o   Check if the filename ends with ".pl". If yes, it is a Perl script.

       o   Open the file and see if the shebang (first line of the file) contains the word "perl" (like "#!/usr/bin/perl"). If yes, it is a Perl
	   script.

       You can customize this behavior by passing "exec_cb" callback, which takes a file path to its first argument.

       For example, if your perl-based CGI script uses lots of global variables and such and are not ready to run on a persistent environment, you
       can do:

	 my $app = Plack::App::CGIBin->new(
	     root => "/path/to/cgi-bin",
	     exec_cb => sub { 1 },
	 )->to_app;

       to always force the execute option for any files.

AUTHOR

       Tatsuhiko Miyagawa

SEE ALSO

       Plack::App::File CGI::Emulate::PSGI CGI::Compile Plack::App::WrapCGI

       See also Plack::App::WrapCGI if you compile one CGI script into a PSGI application without serving CGI scripts from a directory, to remove
       overhead of filesystem lookups, etc.

perl v5.14.2							    2011-11-02						   Plack::App::CGIBin(3pm)