Hi all,
I want to know if anyone is using perl scripts for automation to work on
clearcase.
regards
javeed
use this
#!/usr/bin/perl
#
# This program takes args directory name and regexp to match
# eg $0 "." "html$" gives all html files in current dir incl subdirectories
#
#
$ARGV[1] ||='.';
@files = getfiles($ARGV[0],$ARGV[1]);
print join("\n" , @files);
sub getfiles {
my($dir,$regexp)=@_;
Hey u posted yours many times
cut paste the code below ( you may have to install Time::ParseDate , and
POSIX
You can avoid POSIX if you can use the localtime directly
#!/usr/bin/perl
use Time::ParseDate;
use POSIX qw(strftime);
$ARGV[0]=~s/^(.*?)(\d\d:\d\d:\d\d).*$/$2 $1/;
print strftime
G'day.
I've been trying to develop an application using perl sockets; but
IO::Socket seems to be pretty dodgy in the way it handles some stuff (or its
just me - heh, probably the latter).
A heavily cut down version of the program is below (enough to replicate the
error, in any case).
server.pl:
