Sponsored Content
Top Forums Shell Programming and Scripting how to let the perl script to run for each file Post 302360432 by pludi on Friday 9th of October 2009 01:21:59 AM
Old 10-09-2009
Probably easiest to understand:
Code:
my @files = </work/*>;
foreach my $file (@files) {
    open my $FH, '<', $file or die "Can't open file $file: $!";
    # do your magic here
    close $FH;
}

Don't forget your warnings, strictures, and diagnostics.

Last edited by pludi; 10-28-2009 at 08:51 AM..
 

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. UNIX for Dummies Questions & Answers

cronjob to run perl script

Hi all Recently i had finished a perl script. When i run manually, the script work fine. But when i wanted to put the script in cron, it didn't get the same output as it run manually. I felt that it only execute the script until certain line then it stop as i see most of the related files didn't... (6 Replies)
Discussion started by: AirWalker83
6 Replies

3. Shell Programming and Scripting

perl script to check if empty files are created and delete them and run a shell script

I have a local linux machine in which the files are dumped by a remote ubuntu server. If the process in remote server has any problem then empty files are created in local machine. Is there any way using perl script to check if the empty files are being created and delete them and then run a shell... (2 Replies)
Discussion started by: hussa1n
2 Replies

4. Shell Programming and Scripting

Run perl script with multiple file arguments

Hello everyone, I have two types of files in a directory: *.txt *.info I have a perl script that uses these two files as arguments, and produces a result file: perl myScript.pl abc.txt abc.xml How can I run this script (in a "for" loop , looping through both types of files)... (4 Replies)
Discussion started by: ad23
4 Replies

5. Shell Programming and Scripting

run remote perl script

Hello i want create perl script to connect remotely to another machine and run perl script please note that the remote script check for different variables remotely and not located on local machine also i want to know how to send interactive variables i am trying to make script to... (2 Replies)
Discussion started by: mogabr
2 Replies

6. Shell Programming and Scripting

Run shell script on different machine using perl script

I want to execute my shell script on remote machine using SSH in perl script. Please help me with syntax. (2 Replies)
Discussion started by: james1988
2 Replies

7. Shell Programming and Scripting

Perl system() to run a script

Hello, I'm trying to run "csso" (minify css) in a CGI script from the web panel. That is not working: Returns error 0; my $cmd = qq`csso stylesheet.css > stylesheet.min.css`; system($cmd); But that is working: my $cmd = qq`echo 'blabla' > stylesheet.min.css`; system($cmd); I'm... (12 Replies)
Discussion started by: madispuk
12 Replies

8. UNIX for Dummies Questions & Answers

Perl Script:how to find how many parameters are required to run the script

How to find how many parameters are required to run a Perl script? (1 Reply)
Discussion started by: Lakshman_Gupta
1 Replies

9. Windows & DOS: Issues & Discussions

Update sh file using VBA before perl script is run

I have a VBA that creates a new directory folder and creates a new text file in that directory. I am trying to run a perl script from the VBA and have created a batch file that gets called from the VBA. That bat file uses a shell file to run a script. When the batch file is called I get the error... (0 Replies)
Discussion started by: cmccabe
0 Replies

10. Shell Programming and Scripting

Shell script run in a case statement call to run a php file, also Perl

Linux System having all Perl, Python, PHP (and Ruby) installed From a Shell script, can call a Perl, Python, PHP (or Ruby ?) file eg eg a Shell script run in a case statement call to run a php file, also Perl or/and Python file??? Like #!/usr/bin/bash .... .... case $INPUT_STRING... (1 Reply)
Discussion started by: hoyanet
1 Replies
MIB2C.CONF(5)							     Net-SNMP							     MIB2C.CONF(5)

NAME
mib2c.conf -- How to write mib2c.conf files to do ANYTHING based on MIB input. SYNOPSIS
% cat > mib2c.test.conf << EOF @foreach $t table@ Starting table $t @foreach $c column@ echo $t has column $c which has a syntax of $c.syntax @end@ @end@ EOF % mib2c -c mib2c.test.conf internet DESCRIPTION
The mib2c.conf script language is a MIB-particular language designed to easily process MIB nodes in ways that you want. mib2c is a mis- nomer (for historical purposes), because you can produce anything (not just C code). Look in the Net-SNMP "local" directory for a bunch of example mib2c.*.conf files and behold the power before you. COMMANDS
All commands within mib2c.conf files are embraced by @ signs. Anything with an @ sign at the front and back of the line is generally sup- posed to be a mib2c specific command. These are detailed here: @open FILE@ writes generated output to FILE note that for file specifications, opening '-' will print to stdout. @append FILE@ appends the given FILE @close FILE@ closes the given FILE @push@ save the current outputs, then clear outputs. Use with @open@ and @pop@ to write to a new file without interfering with current out- puts. @pop@ pop up the process() stack one level. Use after a @push@ to return to the previous set of open files. @foreach $VAR scalar@ repeat iterate over code until @end@ setting $VAR to all known scalars @foreach $VAR table@ repeat iterate over code until @end@ setting $VAR to all known tables @foreach $VAR column@ repeat iterate over code until @end@ setting $VAR to all known columns within a given table. Obviously this must be called within a foreach-table clause. @foreach $VAR nonindex@ repeat iterate over code until @end@ setting $VAR to all known non-index columns within a given table. Obviously this must be called within a foreach-table clause. @foreach $VAR internalindex@ repeat iterate over code until @end@ setting $VAR to all known internal index columns within a given table. Obviously this must be called within a foreach-table clause. @foreach $VAR externalindex@ repeat iterate over code until @end@ setting $VAR to all known external index columns within a given table. Obviously this must be called within a foreach-table clause. @foreach $VAR index@ repeat iterate over code until @end@ setting $VAR to all known indexes within a given table. Obviously this must be called within a foreach-table clause. @foreach $VAR notifications@ repeat iterate over code until @end@ setting $VAR to all known notifications @foreach $VAR varbinds@ repeat iterate over code until @end@ setting $VAR to all known varbinds Obviously this must be called within a foreach-notifications clause. @foreach $LABEL, $VALUE enum@ repeat iterate over code until @end@ setting $LABEL and $VALUE to the label and values from the enum list. @foreach $RANGE_START, $RANGE_END range NODE@ repeat iterate over code until @end@ setting $RANGE_START and $RANGE_END to the legal accepted range set for a given mib NODE. @foreach $var stuff a b c d@ repeat iterate over values a, b, c, d as assigned generically (ie, the values are taken straight from the list with no mib-expan- sion, etc). @while expression@ repeat iterate over code until the expression is false @eval $VAR = expression@ evaluates expression and assigns the results to $VAR. This is not a full perl eval, but sort of a ""psuedo"" eval useful for simple expressions while keeping the same variable name space. See below for a full-blown export to perl. @perleval STUFF@ evaluates STUFF directly in perl. Note that all mib2c variables interpereted within .conf files are in $vars{NAME} and that a warn- ing will be printed if STUFF does not return 0. (adding a 'return 0;' at the end of STUFF is a workaround. @startperl@ @endperl@ treats everything between these tags as perl code, and evaluates it. @next@ restart foreach; should only be used inside a conditional. skips out of current conditional, then continues to skip to end for the current foreach clause. @if expression@ evaluates expression, and if expression is true processes contained part until appropriate @end@ is reached. If the expression is false, the next @elsif expression@ expression (if it exists) will be evaluated, until an expression is true. If no such expression exists and an @else@ clause is found, it will be evaluated. @ifconf file@ If the specified file can be found in the conf file search path, and if found processes contained part until an appropriate @end@ is found. As with a regular @if expression@, @elsif expression@ and @else@ can be used. @ifdir dir@ If the specified directory exists, process contained part until an appropriate @end@ is found. As with a regular @if expression@, @elsif expression@ and @else@ can be used. @define NAME@ @enddefine@ Memorizes ""stuff"" between the define and enddefine tags for later calling as NAME by @calldefine NAME@. @calldefine NAME@ Executes stuff previously memorized as NAME. @printf "expression" stuff1, stuff2, ...@ Like all the other printf's you know and love. @run FILE@ Sources the contents of FILE as a mib2c file, but does not affect current files opened. @include FILE@ Sources the contents of FILE as a mib2c file and appends its output to the current output. @prompt $var QUESTION@ Presents the user with QUESTION, expects a response and puts it in $var @print STUFF@ Prints stuff directly to the users screen (ie, not to where normal mib2c output goes) @quit@ Bail out (silently) @exit@ Bail out! VARIABLES
Variables in the mib2c language look very similar to perl variables, in that they start with a "$". They can be used for anything you want, but most typically they'll hold mib node names being processed by @foreach ...@ clauses. They also have a special properties when they are a mib node, such that adding special suffixes to them will allow them to be interpreted in some fashion. The easiest way to understand this is through an example. If the variable 'x' contained the word 'ifType' then some mag- ical things happen. In mib2c output, anytime $x is seen it is replaced with "ifType". Additional suffixes can be used to get other aspects of that mib node though. If $x.objectID is seen, it'll be replaced by the OID for ifType: ".1.3.6.1.2.1.2.2.1.3". Other suffixes that can appear after a dot are listed below. One last thing: you can use things like $vartext immediately ending in some other text, you can use {}s to get proper expansion of only part of the mib2c input. IE, $xtext will produce "$xtext", but ${x}text will produce "ifTypetext" instead. $var.uc all upper case version of $var $var.objectID dotted, fully-qualified, and numeric OID $var.commaoid comma separated numeric OID for array initialization $var.oidlength length of the oid $var.subid last number component of oid $var.module MIB name that the object comes from $var.parent contains the label of the parent node of $var. $var.isscalar returns 1 if var contains the name of a scalar $var.iscolumn returns 1 if var contains the name of a column $var.children returns 1 if var has children $var.perltype node's perl SYNTAX ($SNMP::MIB{node}{'syntax'}) $var.type node's ASN_XXX type (Net-SNMP specific #define) $var.decl C data type (char, u_long, ...) $var.readable 1 if an object is readable, 0 if not $var.settable 1 if an object is writable, 0 if not $var.creatable 1 if a column object can be created as part of a new row, 0 if not $var.noaccess 1 if not-accessible, 0 if not $var.accessible 1 if accessible, 0 if not $var.storagetype 1 if an object is a StorageType object, 0 if not $var.rowstatus 1 if an object is a RowStatus object, 0 if not 'settable', 'creatable', 'lastchange', 'storagetype' and 'rowstatus' can also be used with table variables to indicate whether it contains writable, creatable, LastChange, StorageType or RowStatus column objects $var.hasdefval returns 1 if var has a DEFVAL clause $var.defval node's DEFVAL $var.hashint returns 1 if var has a HINT clause $var.hint node's HINT $var.ranges returns 1 if var has a value range defined $var.enums returns 1 if var has enums defined for it. $var.access node's access type $var.status node's status $var.syntax node's syntax $var.reference node's reference $var.description node's description SEE ALSO
mib2c(1) VVERSIONINFO
28 Apr 2004 MIB2C.CONF(5)
All times are GMT -4. The time now is 07:04 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy