Hi All,
I am working on the following output.
* /ebppvobstore/vobs/Core /ebppvobstore/vobs/aci.vbs public
* /ebppvobstore/vobs/UCMCQ /ebppvobstore/vobs/UCMCQ.vbs public (ucmvob)
/ebppvobstore/vobs/Comp_Care /ebppvobstore/vobs/Comp_Care.vbs/ public
I want to check for the asterisks and
All,
I want to remove files which are older than 2 days. Is there any easy way
to do that perl (high level syntax, please) ? or do I 've to get the date from
the time stamp of the file and compare with current date to remove them. In UNIX
I use mtime with find command.
I would appreciate
Hello,
Can somebody advice on whether to use UNIX gzip or the perl Compress::Zlib
for compressing a tar file. If it is going to be Compress::Zlib, I would
appreciate if somebody can give me a basic syntax.
Thx
Kailash
to use perl Archive::Tar utility to tar the files. Can I
not just use the Compress utility of perl without Archive::Tar if it
is better that UNIX gzip ?
Thx
Kailash
From: [EMAIL PROTECTED] AT INTERNET on 05/09/2001 12:23 PM
To: Kailash Subramanian/ATL/ALLTELCORP
cc: [EMAIL PROTECTED
All,
When I run this command, I get the following error message.
$ perl Makefile.PL
Checking if your kit is complete...
Looks good
Can't locate loadable object for module File::Glob in @INC (@INC contains:
/opt/perl5/lib/5.6.1/PA-RISC1.1 /opt/perl5/lib/5.6.1
All,
I am writing a small perl script which is included below. I 've a problem
with this line
my $prjstream = `cleartool lsstream -in @prjname[1]\@$ucmvob | grep Int` ;
It doesn't recognise $ucmvob in this command.
But if I replace the variable $ucmvob with the string
All,
I 've an output from the system comand as follows.
* /xxx/ /yyy/
* /www/ /vvv/
* /uuu/ /ttt/
:::
I want to parse this output into an array and split them and process each
entry. Essentially, I want to parse the output of a command to an
All,
When I use strict function, I get an error in the following code.
#!/usr/local/bin/perl
use strict ;
my @vob_list = `cleartool lsvob | grep *`;
my $entry ;
foreach $entry (@vob_list) {
chomp $entry;
my @fields = split /\s+/, $entry;
my $tag_list ;
my $vbs_list ;
@tag_list = @fields[1]