So we read the list of file (including directory entries) names in @list. For each name read, we carry out the following operation:
If the filename does not start with a ".", it is not a hidden file. We will put the filename together with its mtime as an array reference to facilitate sorting later on.
Otherwise, a hidden file is ignored by yielding an empty array.
It will pass through every entry of @list and collect the evaluated value in the map{} block and return the aggregated list. At the end of this statement we will get an array of array references containing the filename and the corresponding mtime. Entries that yield an empty array are ignored because an empty array upon interpolated in a list will "dissolve" itself. The net effect in this piece of code is that hidden files will disappear from the resulting, aggregated list. This is what we want if we want to ignore all hidden files.
i.e. ("a", "b", (), "c") will give ("a", "b", "c") so this is how this trick works.
Yes, the next statement sorts this intermediate list in descending order of mtime, and then reconstruct an array with filenames only (by cleaning the temporary mtime values and removing the references).
Hi,
I'm wanting to run an nslookup, dig or whatever to check for the existence of a printer. The PERL script will display the results on the screen, but I can't figure out how to capture the result & test the value. Any ideas will be greatly appreciated!!! Thank You (1 Reply)
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)
I am new to scripting in Perl so I have a dumb question.
I know I can call system commands using
system("date");
But I am not able to:
1. set its output to a variable
2. run in quiet mode(no output to the screen)
The examples i have
#!/usr/bin/perl
print `date +\%y\%m\%d.\%H\%M`;... (5 Replies)
Hi guys,
got a problem with a perl cgi script over here. I need it to run a system command to get the status of a process. Unfortunately the process is owned by a specific user and only this user can get its status. So i tried running the command from the perl cgi with "su", but then i get the... (12 Replies)
HI all,
can anyone tell me what does exit status 9 from perl's system function meant.
I am using system fuction to execute a shell script as :
my $s=system ('script.sh' ,arg1 ,arg2);
print $s;
the output is 9.
Thanks in advance. !!:confused: (1 Reply)
Hi ,
Is there any way to achieve following using perl program (i.e without using system command).
1.system ("echo 'test' > /usr/spool/ship.csv");
2.system ("cat /usr/ajay_test* >> /usr/spool/RAM/work/patil.csv");
3.system("> /usr/spool/ajay.txt");
e.g
for system("rm -f... (1 Reply)
Hi there
could anybody point me in the right direction when it comes to looping through the output of a system command in perl (i.e. df -k) doing a test against each line to see if it matches?
for example if i have a df -k output like this and I wanted to grab the lines that matched "sda" or... (3 Replies)
Hello experts,
I have a perl script which looks for the ARGV and then loads the data as per it.
Example.
#Checking the server to connect
if ($ARGV eq 'QA')
{
$ENV{"ORACLE_HOME"} = "/oracle/product/11.2.0";
$ENV{"PATH"} = "$ENV{'PATH'}:/oracle/product/11.2.0/bin";
... (1 Reply)
Hello!!!
I'm trying to pass the output from bash command to perl variable in a perl script, and I used the "system" command to execute the bash statment and pass the result to perl string variable, in this perl script I used a variable $file that store data for using it as a regular expression.... (2 Replies)
Discussion started by: evolabo
2 Replies
LEARN ABOUT REDHAT
array
array(n) Tcl Built-In Commands array(n)
__________________________________________________________________________________________________________________________________________________NAME
array - Manipulate array variables
SYNOPSIS
array option arrayName ?arg arg ...?
_________________________________________________________________DESCRIPTION
This command performs one of several operations on the variable given by arrayName. Unless otherwise specified for individual commands
below, arrayName must be the name of an existing array variable. The option argument determines what action is carried out by the command.
The legal options (which may be abbreviated) are:
array anymore arrayName searchId
Returns 1 if there are any more elements left to be processed in an array search, 0 if all elements have already been returned.
SearchId indicates which search on arrayName to check, and must have been the return value from a previous invocation of array
startsearch. This option is particularly useful if an array has an element with an empty name, since the return value from array
nextelement won't indicate whether the search has been completed.
array donesearch arrayName searchId
This command terminates an array search and destroys all the state associated with that search. SearchId indicates which search on
arrayName to destroy, and must have been the return value from a previous invocation of array startsearch. Returns an empty string.
array exists arrayName
Returns 1 if arrayName is an array variable, 0 if there is no variable by that name or if it is a scalar variable.
array get arrayName ?pattern?
Returns a list containing pairs of elements. The first element in each pair is the name of an element in arrayName and the second
element of each pair is the value of the array element. The order of the pairs is undefined. If pattern is not specified, then all
of the elements of the array are included in the result. If pattern is specified, then only those elements whose names match pat-
tern (using the matching rules of string match) are included. If arrayName isn't the name of an array variable, or if the array
contains no elements, then an empty list is returned.
array names arrayName ?pattern?
Returns a list containing the names of all of the elements in the array that match pattern (using the matching rules of string
match). If pattern is omitted then the command returns all of the element names in the array. If there are no (matching) elements
in the array, or if arrayName isn't the name of an array variable, then an empty string is returned.
array nextelement arrayName searchId
Returns the name of the next element in arrayName, or an empty string if all elements of arrayName have already been returned in
this search. The searchId argument identifies the search, and must have been the return value of an array startsearch command.
Warning: if elements are added to or deleted from the array, then all searches are automatically terminated just as if array done-
search had been invoked; this will cause array nextelement operations to fail for those searches.
array set arrayName list
Sets the values of one or more elements in arrayName. list must have a form like that returned by array get, consisting of an even
number of elements. Each odd-numbered element in list is treated as an element name within arrayName, and the following element in
list is used as a new value for that array element. If the variable arrayName does not already exist and list is empty, arrayName
is created with an empty array value.
array size arrayName
Returns a decimal string giving the number of elements in the array. If arrayName isn't the name of an array then 0 is returned.
array startsearch arrayName
This command initializes an element-by-element search through the array given by arrayName, such that invocations of the array nex-
telement command will return the names of the individual elements in the array. When the search has been completed, the array done-
search command should be invoked. The return value is a search identifier that must be used in array nextelement and array done-
search commands; it allows multiple searches to be underway simultaneously for the same array. |
array unset arrayName ?pattern? |
Unsets all of the elements in the array that match pattern (using the matching rules of string match). If arrayName isn't the name |
of an array variable or there are no matching elements in the array, then an empty string is returned. If pattern is omitted and is |
it an array variable, then the command unsets the entire array.
KEYWORDS
array, element names, search
Tcl 8.3 array(n)