Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Passing arguments to Perl Function
Top Forums Shell Programming and Scripting Passing arguments to Perl Function Post 302287924 by Raynon on Monday 16th of February 2009 03:33:15 AM
Old 02-16-2009
Passing arguments to Perl Function
Hi All,

I am trying to pass an argument called "Pricelist" to a Perl function, then the function will open and print out the contents of the file named "Pricelist". But i can't seem to do it using my below code. Can any expert give some advice?

Code:
#!/usr/local/bin/perl

$DATABASE = "/home/myfile/DATABASE_DIR";

open_my_doc( "Pricelist" );

sub open_my_doc {
print "$DATABASE/$_[0]\n"; 
open(FH, "< $DATABASE/$_[0]" ) or die $!;
        while (<FH>) {
          print $_;
        };
        close FH;
};

}


Output:

Code:
/home/myfile/DATABASE_DIR

 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

passing arguments

I'm trying to pass a filename, or all the files in the current directory to the ls command with a script. Unsuccessful so far, here are a few of my attempts: #!/bin/ksh read fname #if (( $# > 0 )); then $fname | ls -l #fi this produces a long listing of all the files in my current... (4 Replies)
Discussion started by: jpprial
4 Replies

2. Shell Programming and Scripting

Passing arguments to a Perl script

I am playing around with Perl and wrote the script below that is executed from the command line, it will split data up in a file based on a value supplied. When executed you provide two arguments - the file that contains the data to be split and the character you want to split by. It works as... (4 Replies)
Discussion started by: jyoung
4 Replies

3. Shell Programming and Scripting

Passing global variable to a function which is called by another function

Hi , I have three funcions f1, f2 and f3 . f1 calls f2 and f2 calls f3 . I have a global variable "period" which i want to pass to f3 . Can i pass the variable directly in the definition of f3 ? Pls help . sars (4 Replies)
Discussion started by: sars
4 Replies

4. Shell Programming and Scripting

Perl Function Array Arguement Passing

Hi All, I have some questions regarding array arguements passing for Perl Function. If @array contains 2 items , arguements passing would be like Code_A. But what if @array needs to add in more items, the rest of the code like $_ will have to be modified as well (highlighted in red), which is... (5 Replies)
Discussion started by: Raynon
5 Replies

5. Shell Programming and Scripting

passing arguments

Hi I have a script to which I pass multiple arguments, for example lets say the script name is "abc". I run the script like ./abc def /file <directory location> In the above "def" is the first argument and "/file" is the second argument. I expect <directory location> that is passed after... (4 Replies)
Discussion started by: zmfcat1
4 Replies

6. UNIX for Dummies Questions & Answers

Passing arguments

I need to pass arguments to a shell script.My batch is calling some java program. ################# x=$1 y=$2 java -classpath program ################### if first parameter and second parameter is null then java -classpath program if first parameter is not null and second parameter is... (3 Replies)
Discussion started by: mnjx
3 Replies

7. Shell Programming and Scripting

Reading a string and passing passing arguments to a while loop

I have an for loop that reads the following file cat param.cfg val1:env1:opt1 val2:env2:opt2 val3:env3:opt3 val4:env4:opt4 . . The for loop extracts the each line of the file so that at any one point, the value of i is val1:env1:opt1 etc... I would like to extract each... (19 Replies)
Discussion started by: goddevil
19 Replies

8. Shell Programming and Scripting

Problem in passing date to external function from perl script.

my $sysdate = strftime('%Y-%m-%d', localtime ); biDeriveByDate('Table_Str',$sysdate,\@lIndx,\@lResVals) In a perl script, when I'm trying to pass $sysdate to some external function it's not working since $sysdate is passed as a string mentioned above but my function is expecting a date value... (1 Reply)
Discussion started by: Devesh5683
1 Replies

9. Shell Programming and Scripting

Passing arguments to a perl script

Hi I need to pass comma seperated arguments to a perl script? It is like: Exect.pl -d GUI1,GUI2,GUI3 and I need to store these argsGUI1,GUI2,GUI3 in an array. can anyone suggest how to do that: (1 Reply)
Discussion started by: rkrish
1 Replies

10. Shell Programming and Scripting

Problems passing shell arguments to perl

Semi-newbie, so flame throwers to 'singe-only', please. ;-) I have a large number of (say) .html files, where I'd like to do a recursive in-place search and replace a particular string. The following bit of perl works fine: perl -pi -e 's/oldstring/newstring/g' `find ./ -name *.html` ... (2 Replies)
Discussion started by: johnny_canucl
2 Replies

LEARN ABOUT REDHAT

drop_database

DROP 
DATABASE(7)						   SQL Commands 						  DROP DATABASE(7)

NAME

       DROP DATABASE - remove a database

SYNOPSIS

       DROP DATABASE name

   INPUTS
       name   The name of an existing database to remove.

   OUTPUTS
       DROP DATABASE
	      This message is returned if the command is successful.

       DROP DATABASE: cannot be executed on the currently open database
	      You  cannot  be connected to the database you are about to remove.  Instead, connect to template1 or any other database and run this
	      command again.

       DROP DATABASE: may not be called in a transaction block
	      You must finish the transaction in progress before you can call this command.

DESCRIPTION

       DROP DATABASE removes the catalog entries for an existing database and deletes the directory containing the data.  It can only be  executed
       by the database owner (usually the user that created it).

       DROP DATABASE cannot be undone. Use it with care!

   NOTES
       This  command  cannot  be executed while connected to the target database. Thus, it might be more convenient to use the shell script dropdb
       [dropdb(1)], which is a wrapper around this command, instead.

       Refer to CREATE DATABASE [create_database(7)] for information on how to create a database.

COMPATIBILITY

   SQL92
       DROP DATABASE statement is a PostgreSQL language extension; there is no such command in SQL92.

SQL - Language Statements					    2002-11-22							  DROP DATABASE(7)
All times are GMT -4. The time now is 04:59 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy