In fact you do quite the same in a script. The following is a sketch which can perhaps be refined once we know a bit more about your environment, but it is a place to start. Save the following to a file (replace "<spc>" and "<tab>" with literal space/tab characters) and call it by "/path/to/script /path/to/inputfile":
Code:
#! /bin/ksh
# This script reads a list of usernames from a file and applies your command
typeset fIn="$1"
typeset chUser=""
cat "$fIn" | sed 's/#.*$//;s/^[<spc><tab>][<spc><tab>]*//;s/[<spc><tab>][<spc><tab>]*$//;/^$/d' |\
while read chUser ; do
pwdadm -q "$chUser" | grep lastupdate | perl -le 'print scalar localtime shift'
done
exit 0
The input file should have one username in a line, comments and empty lines are possible. The sed-command just filters out white space and these comments, the rest is straight-forward.
Hi,
I'm a total beginner at awk and hope someone can advise what I have done wrong in the following script:
I have a file which (to simplify things) may be something like this
Fred Smith and Sue Brown
Joe Jones and Jane Watts
Sally Green and Jim O?
Connor
Freda O?
Reiley and Pat O?... (2 Replies)
Hey all. Thanks in advance for any help you can give, hopefully this is an easy one. I want to create a loop to run a simple performance monitor like vmstat and record it to a file, but have very limited scripting skills (obviously).
Starting with this...
date >> /var/log/perfmon.log
vmstat... (2 Replies)
Hey guys! This is my first post, as im new here :S
I have a simple problem for a big program.
We have a .sh to install it, but when I run the .sh in terminal like i should, It says the class is not found. I believe it has to do with the syntax, as the person who made it is not a linux pro. I... (3 Replies)
I haven't done any scripting for quite a while and was trying to remember how to do a script with a for loop that uses another command for input straight from the terminal, IE:
for num in `cat somefile | awk <whatever>` do echo $num; echo blah; echo blahblah; done;
Hopefully something quick... (1 Reply)
folowing code is not working I am a newbie can u help me about it I need to match an array variable to a pattern which is like -rw-r--r--
if } =.r........ ] /* I tried to make every like to accept every thing that starts with any char that has secon char as r and accept any 8 chars after *\... (1 Reply)
I need help writing a bash script that will simply prompt the user with a list of choices, then run an action based on the input. The action is running a wake-on-lan app called etherwake and passing a pre-defined mac address to the syntax.
I have defined the three MAC addresses as: MAC1, MAC2,... (12 Replies)
Hi to everybody!
I want to write a simple script in ksh that decrypts and encrypts using the DES algorithm.
There is no builtin function in UNIX : i have found only a function in openssl but i don't understand how to use it.
The script must accept in input the plaitext and the DESKEY in... (2 Replies)
Hey guys im new to the whole linux and scripting community and am trying to get what (I think) should be a simple script to work.
I understand pretty much everything up to line 20, which is where im getting the following errors:
line 20: '
line 21: -le: command not found
Any help or... (5 Replies)
Script newbie, so I'm sure I'm missing something obvious here, but how come this simple script does not work?
#!/bin/bash ... (3 Replies)
Discussion started by: KidCactus
3 Replies
LEARN ABOUT DEBIAN
test::inline::content::legacy
Test::Inline::Content::Legacy(3pm) User Contributed Perl Documentation Test::Inline::Content::Legacy(3pm)NAME
Test::Inline::Content::Legacy - Test::Inline 2 Content Handler for legacy functions
SYNOPSIS
Custom script content generation using Test::Inline 2.000+ with a custom generator functions
my $header = "....";
my $function = sub {
my $Object = shift;
my $Script = shift;
return $header . $Script->merged_content;
};
my $Inline = Test::Inline->new(
...
file_content => $function,
);
Migrating this same code to Test::Inline 2.100+ ContentHandler objects
my $header = "....";
my $function = sub {
my $Object = shift;
my $Script = shift;
return $header . $Script->merged_content;
};
my $ContentHandler = Test::Inline::Content::Legacy->new( $function );
my $Inline = Test::Inline->new(
...
ContentHandler => $ContentHandler,
);
DESCRIPTION
This class exists to provide a migration path for anyone using the custom script generators in Test::Inline via the "file_content" param.
The synopsis above pretty much says all you need to know.
METHODS
new $CODE_ref
The "new" constructor for "Test::Inline::Content::Legacy" takes a single parameter of a "CODE" reference, as you would have previously
provided directly to "file_content".
Returns a new "Test::Inline::Content::Legacy" object, or "undef" if not passed a "CODE" reference.
coderef
The "coderef" accessor returns the "CODE" reference for the object
process $Inline $Script
The "process" method works with the legacy function by passing the Test::Inline and Test::Inline::Script arguments straight through to the
legacy function, and returning it's result as the return value.
SUPPORT
See the main SUPPORT section.
AUTHOR
Adam Kennedy <adamk@cpan.org>, <http://ali.as/>
COPYRIGHT
Copyright 2004 - 2010 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.12.4 2010-11-22 Test::Inline::Content::Legacy(3pm)