Sponsored Content
Full Discussion: User input in perl code
Top Forums Shell Programming and Scripting User input in perl code Post 302769603 by durden_tyler on Tuesday 12th of February 2013 09:27:17 PM
Old 02-12-2013
Your code looks quite tangled, but here's a quick observation:

Quote:
Originally Posted by ajayram_arya
...
Code:
#!/bin/ksh
echo " Enter the Directory Location of the dat file  :"
read fname
cd $fname
echo " Current directory `pwd`:"
echo " Enter the filename : "
read Filename
if [ -f $Filename ];
then
echo " File exists."
sed 's/ /,/g' $Filename > $Filename.csv
print "Enter the size";
read size
$fontsize = $size   <=====
 perl -F',' -lane 'BEGIN{
...

At the red colored line, the control is still in the shell script, hence that assignment won't work. The shell requires no spaces around the "=" operator. And also, shell variables do not have the "$" prefix.

Were you trying to assign a Perl variable ($fontsize) in that line? The shell does not interpret $fontsize as a Perl variable.

Quote:
Originally Posted by ajayram_arya
....Below is the code and can someone help me in taking user input for changing the font size for a html table ....
...
In order to pass a shell variable from a shell to Perl, you could export that variable and then use Perl's ENV hash to get it from within Perl.
An example follows; I am using Bash, but the code should be similar in Korn shell as well.

Code:
$
$ # Show the contents of my shell script
$ cat -n f17.sh
     1  #!/usr/bin/bash
     2  printf "Enter fontsize : "                                          # prompt for fontsize from shell script
     3  read FONTSIZE                                                       # read user input and assign to shell variable called FONTSIZE
     4  export FONTSIZE                                                     # export the shell variable
     5  echo "From the shell script: value of FONTSIZE = $FONTSIZE"         # display message from the shell script
     6  perl -le '$fs = $ENV{FONTSIZE};                                     # retrieve value of shell variable FONTSIZE from the ENV hash in Perl
     7            print "From the Perl script : value of FONTSIZE = $fs"    # and display message from the Perl script
     8           '
     9
$
$
$ # Now run it
$ ./f17.sh
Enter fontsize : 36
From the shell script: value of FONTSIZE = 36
From the Perl script : value of FONTSIZE = 36
$
$

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

geting user input from php and using perl for execution

I am using festival speech synthesis system and I would like to allow user input in a browser. This will be taken by a php page which is then supposed to pass the input text to a perl script. The perl script should pass this text to the festival engine by executing a unix command. this in turn... (2 Replies)
Discussion started by: wairimus
2 Replies

2. Shell Programming and Scripting

Executing program with Perl script but needs user input

Hello, I'm running a perl script to execute a program through my Unix command line. The program requires a user input but I want to automatically have perl input the string. Is there a way to do this? Thanks (1 Reply)
Discussion started by: leonard2352
1 Replies

3. Shell Programming and Scripting

Accepting user input and arguments in PERL

Hi All, Can we pass arguments while calling the perl script and as well as ask user input during execution of the script? My program is as below: I am passing arg1 and arg2 as argements to test.pl ]./test.pl arg1 arg2 Inside the test.pl I have : print "Do you want a name ? (y/n) : ";... (2 Replies)
Discussion started by: jisha
2 Replies

4. Shell Programming and Scripting

User input - Perl need Help

If I want all user input to start with " : " if not display error or what I asking is how to do if statement that control a first letter of string that we want to start with. and not worry about the rest Thank (1 Reply)
Discussion started by: guidely
1 Replies

5. Shell Programming and Scripting

List all file that match user input perl

Hi, I want to list all file that match user input ( specified shell wildcard) but when I compile it dont list me #!/usr/bin/perl -w print "Enter Advance Search Function: "; chomp ($func = <STDIN>); my @files = glob("$func"); foreach my $file (@files) { print "$file\n";... (1 Reply)
Discussion started by: guidely
1 Replies

6. Shell Programming and Scripting

every time user input create array perl

Hi, How to create array every time user input and store user input and display all array print " Enter input " my @input = split(' ', $input) chmop($input = <STDIN>; foreach ($input) { @array= @input; } print @array"\n"; (1 Reply)
Discussion started by: guidely
1 Replies

7. Shell Programming and Scripting

Validating uppercase/lowercase of user input with perl compared to unix folders

Hi, I need to copy files from a source directory to a destination directory in unix. I'm using the file::copy for the actual copy. The problem is that the source and dest directories are supplied by different users, who might type the name of the directories in various combinations of lower... (6 Replies)
Discussion started by: Furou
6 Replies

8. Shell Programming and Scripting

user input in perl?

Please tell me how to write a perl script that asks the user to enter words and that passes them to a variable. In bash, the "read" command would achieve such user interaction. #!/bin/bash read -p "Enter files: " vFiles However, I am looking for perl version of something equivalent... (2 Replies)
Discussion started by: LessNux
2 Replies

9. Shell Programming and Scripting

Perl to read user input

I am creating a bash that uses perl . The below code closes before the input is entered. If I run the perl as a .pl it is fine. What am I doing wrong? Thank you :). #!/bin/bash cd 'C:\Users\cmccabe\Desktop\wget' wget -O getCSV.txt http://xxx.xx.xxx.xxx/data/getCSV.csv print... (4 Replies)
Discussion started by: cmccabe
4 Replies

10. Shell Programming and Scripting

Checking the user input in perl for characters and length

My question is basically as the title says. How can I check a user inputted string is only certain characters long (for example, 3 characters long) and how do I check a user inputted string only contains certain characters (for example, it should only contain the characters 'u', 'a', 'g', and 'c')... (4 Replies)
Discussion started by: Eric1
4 Replies
filename(3erl)						     Erlang Module Definition						    filename(3erl)

NAME
filename - Filename Manipulation Functions DESCRIPTION
The module filename provides a number of useful functions for analyzing and manipulating file names. These functions are designed so that the Erlang code can work on many different platforms with different formats for file names. With file name is meant all strings that can be used to denote a file. They can be short relative names like foo.erl , very long absolute name which include a drive designator and direc- tory names like D:usr/localinerl/lib oolsfoo.erl , or any variations in between. In Windows, all functions return file names with forward slashes only, even if the arguments contain back slashes. Use join/1 to normalize a file name by removing redundant directory separators. The module supports raw file names in the way that if a binary is present, or the file name cannot be interpreted according to the return value of file:native_name_encoding/0 , a raw file name will also be returned. For example filename:join/1 provided with a path component being a binary (and also not being possible to interpret under the current native file name encoding) will result in a raw file name being returned (the join operation will have been performed of course). For more information about raw file names, see the file module. DATA TYPES
name() = string() | atom() | DeepList | RawFilename DeepList = [char() | atom() | DeepList] RawFilename = binary() If VM is in unicode filename mode, string() and char() are allowed to be > 255. RawFilename is a filename not subject to Unicode translation, meaning that it can contain characters not conforming to the Unicode encoding expected from the filesystem (i.e. non-UTF-8 characters although the VM is started in Unicode filename mode). EXPORTS
absname(Filename) -> string() Types Filename = name() Converts a relative Filename and returns an absolute name. No attempt is made to create the shortest absolute name, because this can give incorrect results on file systems which allow links. Unix examples: 1> pwd(). "/usr/local" 2> filename:absname("foo"). "/usr/local/foo" 3> filename:absname("../x"). "/usr/local/../x" 4> filename:absname("/"). "/" Windows examples: 1> pwd(). "D:/usr/local" 2> filename:absname("foo"). "D:/usr/local/foo" 3> filename:absname("../x"). "D:/usr/local/../x" 4> filename:absname("/"). "D:/" absname(Filename, Dir) -> string() Types Filename = name() Dir = string() This function works like absname/1 , except that the directory to which the file name should be made relative is given explicitly in the Dir argument. absname_join(Dir, Filename) -> string() Types Dir = string() Filename = name() Joins an absolute directory with a relative filename. Similar to join/2 , but on platforms with tight restrictions on raw filename length and no support for symbolic links (read: VxWorks), leading parent directory components in Filename are matched against trail- ing directory components in Dir so they can be removed from the result - minimizing its length. basename(Filename) -> string() Types Filename = name() Returns the last component of Filename , or Filename itself if it does not contain any directory separators. 5> filename:basename("foo"). "foo" 6> filename:basename("/usr/foo"). "foo" 7> filename:basename("/"). [] basename(Filename, Ext) -> string() Types Filename = Ext = name() Returns the last component of Filename with the extension Ext stripped. This function should be used to remove a specific extension which might, or might not, be there. Use rootname(basename(Filename)) to remove an extension that exists, but you are not sure which one it is. 8> filename:basename("~/src/kalle.erl", ".erl"). "kalle" 9> filename:basename("~/src/kalle.beam", ".erl"). "kalle.beam" 10> filename:basename("~/src/kalle.old.erl", ".erl"). "kalle.old" 11> filename:rootname(filename:basename("~/src/kalle.erl")). "kalle" 12> filename:rootname(filename:basename("~/src/kalle.beam")). "kalle" dirname(Filename) -> string() Types Filename = name() Returns the directory part of Filename . 13> filename:dirname("/usr/src/kalle.erl"). "/usr/src" 14> filename:dirname("kalle.erl"). "." 5> filename:dirname("\usr\src/kalle.erl"). % Windows "/usr/src" extension(Filename) -> string() Types Filename = name() Returns the file extension of Filename , including the period. Returns an empty string if there is no extension. 15> filename:extension("foo.erl"). ".erl" 16> filename:extension("beam.src/kalle"). [] flatten(Filename) -> string() Types Filename = name() Converts a possibly deep list filename consisting of characters and atoms into the corresponding flat string filename. join(Components) -> string() Types Components = [string()] Joins a list of file name Components with directory separators. If one of the elements of Components includes an absolute path, for example "/xxx" , the preceding elements, if any, are removed from the result. The result is "normalized": * Redundant directory separators are removed. * In Windows, all directory separators are forward slashes and the drive letter is in lower case. 17> filename:join(["/usr", "local", "bin"]). "/usr/local/bin" 18> filename:join(["a/b///c/"]). "a/b/c" 6> filename:join(["B:a\b///c/"]). % Windows "b:a/b/c" join(Name1, Name2) -> string() Types Name1 = Name2 = string() Joins two file name components with directory separators. Equivalent to join([Name1, Name2]) . nativename(Path) -> string() Types Path = string() Converts Path to a form accepted by the command shell and native applications on the current platform. On Windows, forward slashes is converted to backward slashes. On all platforms, the name is normalized as done by join/1 . 19> filename:nativename("/usr/local/bin/"). % Unix "/usr/local/bin" 7> filename:nativename("/usr/local/bin/"). % Windows "\usr\local\bin" pathtype(Path) -> absolute | relative | volumerelative Returns the type of path, one of absolute , relative , or volumerelative . absolute : The path name refers to a specific file on a specific volume. Unix example: /usr/local/bin Windows example: D:/usr/local/bin relative : The path name is relative to the current working directory on the current volume. Example: foo/bar, ../src volumerelative : The path name is relative to the current working directory on a specified volume, or it is a specific file on the current work- ing volume. Windows example: D:bar.erl, /bar/foo.erl rootname(Filename) -> string() rootname(Filename, Ext) -> string() Types Filename = Ext = name() Remove a filename extension. rootname/2 works as rootname/1 , except that the extension is removed only if it is Ext . 20> filename:rootname("/beam.src/kalle"). /beam.src/kalle" 21> filename:rootname("/beam.src/foo.erl"). "/beam.src/foo" 22> filename:rootname("/beam.src/foo.erl", ".erl"). "/beam.src/foo" 23> filename:rootname("/beam.src/foo.beam", ".erl"). "/beam.src/foo.beam" split(Filename) -> Components Types Filename = name() Components = [string()] Returns a list whose elements are the path components of Filename . 24> filename:split("/usr/local/bin"). ["/","usr","local","bin"] 25> filename:split("foo/bar"). ["foo","bar"] 26> filename:split("a:\msdev\include"). ["a:/","msdev","include"] find_src(Beam) -> {SourceFile, Options} | {error,{ErrorReason,Module}} find_src(Beam, Rules) -> {SourceFile, Options} | {error,{ErrorReason,Module}} Types Beam = Module | Filename Module = atom() Filename = string() | atom() SourceFile = string() Options = [Opt] Opt = {i, string()} | {outdir, string()} | {d, atom()} ErrorReason = non_existing | preloaded | interpreted Finds the source filename and compiler options for a module. The result can be fed to compile:file/2 in order to compile the file again. The Beam argument, which can be a string or an atom, specifies either the module name or the path to the source code, with or with- out the ".erl" extension. In either case, the module must be known by the code server, i.e. code:which(Module) must succeed. Rules describes how the source directory can be found, when the object code directory is known. It is a list of tuples {BinSuffix, SourceSuffix} and is interpreted as follows: If the end of the directory name where the object is located matches BinSuffix , then the source code directory has the same name, but with BinSuffix replaced by SourceSuffix . Rules defaults to: [{"", ""}, {"ebin", "src"}, {"ebin", "esrc"}] If the source file is found in the resulting directory, then the function returns that location together with Options . Otherwise, the next rule is tried, and so on. The function returns {SourceFile, Options} if it succeeds. SourceFile is the absolute path to the source file without the ".erl" extension. Options include the options which are necessary to recompile the file with compile:file/2 , but excludes options such as report or verbose which do not change the way code is generated. The paths in the {outdir, Path} and {i, Path} options are guaran- teed to be absolute. Ericsson AB stdlib 1.17.3 filename(3erl)
All times are GMT -4. The time now is 12:51 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy