Sponsored Content
Full Discussion: help- perl script
Top Forums Shell Programming and Scripting help- perl script Post 302200349 by psiva_arul on Thursday 29th of May 2008 03:53:53 AM
Old 05-29-2008
string comparision in PERL

Hi,

In perl you can use the "==" and =~ sign for string comparison
and comp used to clear "\n" character at end of the input string

Regards,
Siva Pitchai
Bangalore
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl: Run perl script in the current process

I have a question regarding running perl in the current process. I shall demonstrate with an example. Look at this. sh-2.05b$ pwd /tmp sh-2.05b$ cat test.sh #! /bin/sh cd /etc sh-2.05b$ ./test.sh sh-2.05b$ pwd /tmp sh-2.05b$ . ./test.sh sh-2.05b$ pwd /etc sh-2.05b$ So... (10 Replies)
Discussion started by: vino
10 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

3. Shell Programming and Scripting

perl/unix: script in command line works but not in perl

so in unix this command works works and shows me a list of directories find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt but when i try running a perl script to run this command my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies

4. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies

5. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

6. Shell Programming and Scripting

calling a perl script with arguments from a parent perl script

I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard. From parent.pl $input1=123; $input2=abc; I tried calling it with system("/usr/bin/perl child.pl $input1 $input2"); and `perl... (1 Reply)
Discussion started by: grajp002
1 Replies

7. Shell Programming and Scripting

executing perl script from another perl script : NOT WORKING

Hi Folks, I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS. In the 1st perl script that I had, I am calling the 2nd script main.pl =========== print "This is my main script\n"; `perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`; ... (3 Replies)
Discussion started by: giridhar276
3 Replies

8. Shell Programming and Scripting

Perl : embedding java script with cgi perl script

Hi All, I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ?? print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">"); print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies

9. Shell Programming and Scripting

Excuting perl script from within a perl script with variables.

Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'. #!/usr/bin/perl open FILE, "upslist.txt"; while ($line=<FILE>){ if ($line=~/^(.*?),(.*?)$/){ #print "ups:$1 string:$2\n"; do 'check_snmp_mgeups-0.1.pl -H $1 -C $2'; } ... (1 Reply)
Discussion started by: mrlayance
1 Replies

10. Programming

PERL: In a perl-scripttTrying to execute another perl-script that SETS SOME VARIABLES !

I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open()) I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
fileutil::magic::rt(3tcl)					  file utilities					 fileutil::magic::rt(3tcl)

__________________________________________________________________________________________________________________________________________________

NAME
fileutil::magic::rt - Runtime core for file type recognition engines written in pure Tcl SYNOPSIS
package require Tcl 8.4 package require fileutil::magic::rt ?1.0? ::fileutil::magic::rt::open filename ::fileutil::magic::rt::close ::fileutil::magic::rt::file_start name ::fileutil::magic::rt::result ?msg? ::fileutil::magic::rt::resultv ?msg? ::fileutil::magic::rt::emit msg ::fileutil::magic::rt::offset where ::fileutil::magic::rt::Nv type offset ?qual? ::fileutil::magic::rt::N type offset comp val ?qual? ::fileutil::magic::rt::Nvx atlevel type offset ?qual? ::fileutil::magic::rt::Nx atlevel type offset comp val ?qual? ::fileutil::magic::rt::S offset comp val ?qual? ::fileutil::magic::rt::Sx atlevel offset comp val ?qual? ::fileutil::magic::rt::L newlevel ::fileutil::magic::rt::I base type delta ::fileutil::magic::rt::R offset _________________________________________________________________ DESCRIPTION
This package provides the runtime core for file type recognition engines written in pure Tcl and is thus used by all other packages in this module, i.e. the two frontend packages fileutil::magic::mimetypes and fileutil::magic::filetypes, and the two engine compiler packages fileutil::magic::cgen and fileutil::magic::cfront. COMMANDS
::fileutil::magic::rt::open filename This command initializes the runtime and prepares the file filename for use by the system. This command has to be invoked first, before any other command of this package. The command returns the channel handle of the opened file as its result. ::fileutil::magic::rt::close This command closes the last file opened via ::fileutil::magic::rt::open and shuts the runtime down. This command has to be invoked last, after the file has been dealt with completely. Afterward another invokation of ::fileutil::magic::rt::open is required to process another file. This command returns the empty string as its result. ::fileutil::magic::rt::file_start name This command marks the start of a magic file when debugging. It returns the empty string as its result. ::fileutil::magic::rt::result ?msg? This command returns the current result and stops processing. If msg is specified its text is added to the result before it is returned. See ::fileutil::magic::rt::emit for the allowed special character sequences. ::fileutil::magic::rt::resultv ?msg? This command returns the current result. In contrast to ::fileutil::magic::rt::result processing continues. If msg is specified its text is added to the result before it is returned. See ::fileutil::magic::rt::emit for the allowed special character sequences. ::fileutil::magic::rt::emit msg This command adds the text msg to the result buffer. The message may contain the following special character sequences. They will be replaced with buffered values before the message is added to the result. The command returns the empty string as its result.  This sequence is removed %s Replaced with the last buffered string value. %ld Replaced with the last buffered numeric value. %d See above. ::fileutil::magic::rt::Nv type offset ?qual? This command fetches the numeric value with type from the absolute location offset and returns it as its result. The fetched value is further stored in the numeric buffer. If qual is specified it is considered to be a mask and applied to the fetched value before it is stored and returned. It has to have the form of a partial Tcl bit-wise expression, i.e. & number For example: Nv lelong 0 &0x8080ffff For the possible types see section NUMERIC TYPES. ::fileutil::magic::rt::N type offset comp val ?qual? This command behaves mostly like ::fileutil::magic::rt::Nv, except that it compares the fetched and masked value against val as specified with comp and returns the result of that comparison. The argument comp has to contain one of Tcl's comparison operators, and the comparison made will be <val> <comp> <fetched-and-masked-value> The special comparison operator x signals that no comparison should be done, or, in other words, that the fetched value will always match val. ::fileutil::magic::rt::Nvx atlevel type offset ?qual? This command behaves like ::fileutil::magic::rt::Nv, except that it additionally remembers the location in the file after the fetch in the calling context, for the level atlevel, for later use by ::fileutil::magic::rt::R. ::fileutil::magic::rt::Nx atlevel type offset comp val ?qual? This command behaves like ::fileutil::magic::rt::N, except that it additionally remembers the location in the file after the fetch in the calling context, for the level atlevel, for later use by ::fileutil::magic::rt::R. ::fileutil::magic::rt::S offset comp val ?qual? This command behaves like ::fileutil::magic::rt::N, except that it fetches and compares strings, not numeric data. The fetched value is also stored in the internal string buffer instead of the numeric buffer. ::fileutil::magic::rt::Sx atlevel offset comp val ?qual? This command behaves like ::fileutil::magic::rt::S, except that it additionally remembers the location in the file after the fetch in the calling context, for the level atlevel, for later use by ::fileutil::magic::rt::R. ::fileutil::magic::rt::L newlevel This command sets the current level in the calling context to newlevel. The command returns the empty string as its result. ::fileutil::magic::rt::I base type delta This command handles base locations specified indirectly through the contents of the inspected file. It returns the sum of delta and the value of numeric type fetched from the absolute location base. For the possible types see section NUMERIC TYPES. ::fileutil::magic::rt::R offset This command handles base locations specified relative to the end of the last field one level above. In other words, the command computes an absolute location in the file based on the relative offset and returns it as its result. The base the offset is added to is the last location remembered for the level in the calling context. NUMERIC TYPES
byte 8-bit integer short 16-bit integer, stored in native endianess beshort see above, stored in big endian leshort see above, stored in small/little endian long 32-bit integer, stored in native endianess belong see above, stored in big endian lelong see above, stored in small/little endian All of the types above exit in an unsigned form as well. The type names are the same, with the character "u" added as prefix. date 32-bit integer timestamp, stored in native endianess bedate see above, stored in big endian ledate see above, stored in small/little endian ldate 32-bit integer timestamp, stored in native endianess beldate see above, stored in big endian leldate see above, stored in small/little endian BUGS, IDEAS, FEEDBACK This document, and the package it describes, will undoubtedly contain bugs and other problems. Please report such in the category fileutil :: magic of the Tcllib SF Trackers [http://sourceforge.net/tracker/?group_id=12883]. Please also report any ideas for enhancements you may have for either package and/or documentation. SEE ALSO
file(1), fileutil, magic(5) KEYWORDS
file recognition, file type, file utilities, mime, type CATEGORY
Programming tools fumagic 1.0 fileutil::magic::rt(3tcl)
All times are GMT -4. The time now is 03:52 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy