Sponsored Content
Full Discussion: perl variable assingment
Top Forums Shell Programming and Scripting perl variable assingment Post 14253 by seismic_willy on Tuesday 29th of January 2002 02:54:53 PM
Old 01-29-2002
perl variable assingment

I want to assign the current user to a variable in my perl script.

My first attempt using Solaris 8 (perl 5) is:

$VAR = system(logname);

However, this assigns 0 to $VAR, and outputs the user to the screen. Does anyone know the command that I need?

Thanks,
seismic_willy
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Query string assingment for other variable in PERL

Hi friends, I want to use query string value to another variable but it gives following error when I use it with print out command, Insecure dependency in open while running with -T switch at C:/Program Files/Apache Group/Apache2/cgi-bin/cdr_findere.pl line 119. My code as follows, my... (0 Replies)
Discussion started by: maheshsri
0 Replies

2. UNIX for Dummies Questions & Answers

need help for an assingment

i have to do an assingment using mailx, where can i find info on mailx? *yes i read the rules, so i am not asking for the asnwers, just need to learn about mailx more (1 Reply)
Discussion started by: punk_87
1 Replies

3. Shell Programming and Scripting

Perl - Command assingment to variable.

Hi How do i assign the output of a unix command to a variable ? say i want the whoami output to be assigned to a variable? Thanks (2 Replies)
Discussion started by: PrasannaKS
2 Replies

4. Shell Programming and Scripting

Multiple variable in a variable in Perl

Hi All, I am trying to convert the below Csh while loop into Perl while loop but the problem is that in this csh script, i have 2 variables inside a variable -> $count is a variable {SB$count} as a whole is another variable. Csh is able to assign values to such variable like the below but i do... (3 Replies)
Discussion started by: Raynon
3 Replies

5. Shell Programming and Scripting

perl get variable value ???

hi i have following code my $a1 = "A" ; my $a2 = "B" ; my $a3 = "C" ; foreach my $k ( 1,2,3 ) { my $msg = ${a{$k}} # this should be at runtime i am creating variable a1 and assigning it value to msg . print "$msg\n" ; } above thing is not working !!! i want when k = 1... (4 Replies)
Discussion started by: zedex
4 Replies

6. Shell Programming and Scripting

perl - how can we name a variable base on value of another variable

Hey all, perl - how can we name a variable base on the value of another variable? for example in ksh/bash we do : export c="100" export x`echo $c`=2000 echo $x100 x100=2000 is it possible to do something similar for perl? I already tried many ways but nothing is working. I am... (3 Replies)
Discussion started by: cacm1975
3 Replies

7. Shell Programming and Scripting

PERL : Use of a variable in a tr

Hi, I want to count the number of occurences of a character in a string variable ($str). The character is stored in a another variable ($sepchr). I am using tr as : $count = ($str =~ tr/$sepchr//); This did not work. I found in another thread about using eval. I used eval as : ... (13 Replies)
Discussion started by: sinpeak
13 Replies

8. Shell Programming and Scripting

[Perl] Split lines into array - variable line items - variable no of lines.

Hi, I have the following lines that I would like to see in an array for easy comparisons and printing: Example 1: field1,field2,field3,field4,field5 value1,value2,value3,value4,value5Example 2: field1,field3,field4,field2,field5,field6,field7... (7 Replies)
Discussion started by: ejdv
7 Replies

9. Shell Programming and Scripting

Perl help - how to assign output of perl to variable

Hi, guys, i have a script i inherited from a coworker but i'm not perl savy. The script works but i would like it to work better. I want to run this command ./ciscomgrtest.pl -r "show version" -h hosts.router and have the script goto each router in the hosts.router file and run the command... (2 Replies)
Discussion started by: whipuras
2 Replies

10. Shell Programming and Scripting

Shell Script Assingment!

Q 1. Write a shell script to print the following pattern upto n (specified by user)- @ @@ @@@ @@@@ @@@ @@ @ Please help! :) (1 Reply)
Discussion started by: heatedline
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 01:28 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy