Hi,
I have a situation where I need a parameter value to pick from a file can I use it in this way
File_name.txt contains names of files
a.jpg
b.jpg
c.jpg
now I want to assign the file name to parameter
FTP_INPUT_FILE=a.jpg for first run once it is processed we can delete onve they are... (2 Replies)
Could any one tell me how to do get result in fraction in shell script.
I am using expr for division of 2 number but it is giving Quitent.
I need it in full fraction value.
please helpp. how to do it using "dc" or "bc" (5 Replies)
hi,
I have a script that will logon to a database siebel and do the select query and then get the result in command prompt of unix.Below the script.
#!/bin/ksh
. $HOME/conf/systemProperties/EnvSetup.properties
#set -x
while read i
do
echo $i
connect1=`sqlplus -silent... (1 Reply)
Since I'm not an expert in shell scripting, I have question on sending script result to file. I have script like this...
if condition=0: then
echo "service is not running" | mail -s "Server Status" uname@companyname
fi
sleep 10
if configtion=1: then
echo "service is not running" | mail -s... (3 Replies)
I hv a file --am executing a script which is giving me unexpected results
COntents of file:
f1
CMT_AP1_CONT:/opt/sybase/syboc125:150:ASE12_5::Y:UX:
CMT_AP1:/opt/sybase/syboc125:150:ASE12_5::Y:UX
f1.tmp
CMT_AP1_CONT:/opt/sybase/syboc125:150:ASE12_5::Y:UX:... (2 Replies)
Hi all,
Say I have a script named script.sh. What it does is to print a line like "abc"
#! /usr/bin/ksh
print "abc"
I would like to pass this value to an external variable,
var1="script.sh"
However when I echo $var1 I got "script.sh" itself instead of the result?
Thanks (3 Replies)
Hi everyone and nice to meet you :)
I'm having some issues with a script I'm writing.
It's probably most chaotic, I'm no ksh guru, but the idea is to extract an ID with that query, spool it into a file, and read that file making the ID a variable. This has to be done for every row extracted by... (10 Replies)
Hello,
How can I run this script every 1 hour and save its result to result.txt
ifconfig | grep 'inet addr:'| grep -v '127.0.0.1' | cut -d: -f2 | awk '{ print $1}'
Regards
Shaan (5 Replies)
Hi,
I wrote the below script to get the query result from a Syabase DB.
isql -s -U **** -P **** SYBASE SERVERNAME
USE ***(Database name in Sybase)
@command.sql
But im not getting the output. Can anyone help me on this (2 Replies)
Hi Gurus,
I have requirement to compare current result with previous reuslt.
The sample case is below.
1 job1 1
1 job2 2
1 job3 3
2 job_a1 1
2 job_a2 2
2 job_a3 3
3 job_b1 1
3 job_b2 2
for above sample file, GID is group ID, for input line, the job run... (1 Reply)
Discussion started by: ken6503
1 Replies
LEARN ABOUT MOJAVE
test::object5.18
Test::Object(3) User Contributed Perl Documentation Test::Object(3)NAME
Test::Object - Thoroughly testing objects via registered handlers
SYNOPSIS
###################################################################
# In your test module, register test handlers again class names #
###################################################################
package My::ModuleTester;
use Test::More;
use Test::Object;
# Foo::Bar is a subclass of Foo
Test::Object->register(
class => 'Foo',
tests => 5,
code => &foo_ok,
);
Test::Object->register(
class => 'Foo::Bar',
# No fixed number of tests
code => &foobar_ok,
);
sub foo_ok {
my $object = shift;
ok( $object->foo, '->foo returns true' );
}
sub foobar_ok {
my $object = shift;
is( $object->foo, 'bar', '->foo returns "bar"' );
}
1;
###################################################################
# In test script, test object against all registered classes #
###################################################################
#!/usr/bin/perl -w
use Test::More 'no_plan';
use Test::Object;
use My::ModuleTester;
my $object = Foo::Bar->new;
isa_ok( $object, 'Foo::Bar' );
object_ok( $object );
DESCRIPTION
In situations where you have deep trees of classes, there is a common situation in which you test a module 4 or 5 subclasses down, which
should follow the correct behaviour of not just the subclass, but of all the parent classes.
This should be done to ensure that the implementation of a subclass has not somehow "broken" the object's behaviour in a more general
sense.
"Test::Object" is a testing package designed to allow you to easily test what you believe is a valid object against the expected behaviour
of all of the classes in its inheritance tree in one single call.
To do this, you "register" tests (in the form of CODE or function references) with "Test::Object", with each test associated with a
particular class.
When you call "object_ok" in your test script, "Test::Object" will check the object against all registered tests. For each class that your
object responds to "$object->isa($class)" for, the appropriate testing function will be called.
Doing it this way allows adapter objects and other things that respond to "isa" differently that the default to still be tested against the
classes that it is advertising itself as correctly.
This also means that more than one test might be "counted" for each call to "object_ok". You should account for this correctly in your
expected test count.
SUPPORT
Bugs should be submitted via the CPAN bug tracker, located at
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Test-Object>
For other issues, contact the author.
AUTHOR
Adam Kennedy <cpan@ali.as>
SEE ALSO
<http://ali.as/>, Test::More, Test::Builder::Tester, Test::Class
COPYRIGHT
Copyright 2005, 2006 Adam Kennedy. All rights reserved.
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.18.2 2006-09-06 Test::Object(3)