04-08-2008
you forgot the "fi" at the end.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I want to be able to run a script on one server, that will spawn another shell which runs some commands on another server..
I have seen some code that may help - but I cant get it working as below:
spawn /usr/bin/ksh
send "telnet x <port_no>\r"
expect "Enter command: "
send "LOGIN:x:x;... (2 Replies)
Discussion started by: frustrated1
2 Replies
2. Shell Programming and Scripting
well i have this code here..and it works fine in kornshell..
#!/bin/ksh
home=c:/..../
input=$1
sed '1,3d' $input > $1.out
line=""
cat $1.out | while read a
do
line="$line $a"
done
echo $line > $1
rm $1.out
however...now i want it just in normal sh mode..how to convert this?... (21 Replies)
Discussion started by: forevercalz
21 Replies
3. Shell Programming and Scripting
I have to copy an array to a temp variable and back after doing some functions. I am trying to see if it is possible to do without while loops.My closest try was
set -A temp ${THE_ARRAY}
# restore array after some actions
set -A THE_ARRAY ${temp}
The problem with above is that, the new... (1 Reply)
Discussion started by: vijay1985
1 Replies
4. UNIX for Dummies Questions & Answers
hi all, I have read similiar topics in this board, but i didn' t find the posting which is the same with the problem i face.. I try to extract string from the end. i try to do this:
num=abcdefghij
num2=${num:-5}
echo $num2 #this should print the last 5 characters (fghij)
but it doesn;t... (3 Replies)
Discussion started by: nashrul
3 Replies
5. Shell Programming and Scripting
I got the task writting Korn Shell script to automate the tuxedo login so that users neednot have to enter options manually. I have done that using expect tool from the Unix but my manger told me its not secure so you have to do that using Kornshell without using Expect. Here is the way to login to... (0 Replies)
Discussion started by: pareshan
0 Replies
6. Shell Programming and Scripting
In a Korn shell script I have,
cat ../header | sed -e 's/flag1/$cnumb/g' > header.txt
The header is short
{{Company flag1}}
But the result in header.txt is
{{Company $cnumb}}
The value of $cnumb is 120. I am trying to get the value of $cnumb into the header.
I have tried /'$cnumb'/g,... (10 Replies)
Discussion started by: jcarrott
10 Replies
7. Shell Programming and Scripting
Hi All
I have writing a Korn Shell script to execute it on many of our servers. But some servers don't have Korn Shell installed, they use Borne Shell.
Some operations like calculation don't work :
cat ${file1} | tail -$((${num1}-${num2})) > ${file2}
Is it possible to activate Korn Shell... (3 Replies)
Discussion started by: madmat
3 Replies
8. Shell Programming and Scripting
Write a function called dateToDays that takes three parameters -a month string such as Sep, a day number such as 18, and a year number such as 1962-and return s the number of days from January 1, 1900, to the date.
Notes: I am asking you to account for leap years.
my script is not... (0 Replies)
Discussion started by: babuda0059
0 Replies
9. Shell Programming and Scripting
Using the KSH, write a shell script called display_by_length, which takes an absolute pathname to a directory and displays all ordinary files in the directory ordered by their length; for each file listed, display the name of the file and its length - nothing else. Extend this script to take an... (1 Reply)
Discussion started by: babuda0059
1 Replies
10. Shell Programming and Scripting
i am a beginner i m learning shell by myself
i have problem writing a korn shell that takes an absolute pathname to directory and display all ordinary files in the directory ordered by their length.
i was thinking use grep ls sort and sed. maybe, i m wrong! can someone tell me? (2 Replies)
Discussion started by: babuda0059
2 Replies
LEARN ABOUT DEBIAN
class::virtual
Class::Virtual(3pm) User Contributed Perl Documentation Class::Virtual(3pm)
NAME
Class::Virtual - Base class for virtual base classes.
SYNOPSIS
package My::Virtual::Idaho;
use base qw(Class::Virtual);
__PACKAGE__->virtual_methods(qw(new foo bar this that));
package My::Private::Idaho;
use base qw(My::Virtual::Idaho);
# Check to make sure My::Private::Idaho implemented everything
my @missing = __PACKAGE__->missing_methods;
die __PACKAGE__ . ' forgot to implement ' . join ', ', @missing
if @missing;
# If My::Private::Idaho forgot to implement new(), the program will
# halt and yell about that.
my $idaho = My::Private::Idaho->new;
# See what methods we're obligated to implement.
my @must_implement = __PACKAGE__->virtual_methods;
DESCRIPTION
This is a base class for implementing virtual base classes (what some people call an abstract class). Kinda kooky. It allows you to
explicitly declare what methods are virtual and that must be implemented by subclasses. This might seem silly, since your program will
halt and catch fire when an unimplemented virtual method is hit anyway, but there's some benefits.
The error message is more informative. Instead of the usual "Can't locate object method" error, you'll get one explaining that a virtual
method was left unimplemented.
Subclass authors can explicitly check to make sure they've implemented all the necessary virtual methods. When used as part of a
regression test, it will shield against the virtual method requirements changing out from under the subclass.
Finally, subclass authors can get an explicit list of everything they're expected to implement.
Doesn't hurt and it doesn't slow you down.
Methods
virtual_methods
Virtual::Class->virtual_methods(@virtual_methods);
my @must_implement = Sub::Class->virtual_methods;
This is an accessor to the list of virtual_methods. Virtual base classes will declare their list of virtual methods. Subclasses will
look at them. Once the virtual methods are set they cannot be undone.
missing_methods
my @missing_methods = Sub::Class->missing_methods;
Returns a list of methods Sub::Class has not yet implemented.
CAVEATS and BUGS
Autoloaded methods are currently not recognized. I have no idea how to solve this.
AUTHOR
Michael G Schwern <schwern@pobox.com>
LEGAL
Copyright 2000, 2001, 2003, 2004 Michael G Schwern
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
See <http://www.perl.com/perl/misc/Artistic.html>
SEE ALSO
Class::Virtually::Abstract
perl v5.10.1 2007-10-23 Class::Virtual(3pm)