10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hello Experts,
I want to merge my local file (File1) with the changes in remote server (File1). For Example:
File1 contents are... (file @ remote server)
ABC
<blankLine>
GHI
<EOF>
I, as USER#1, have updated the contents of File1 in my local as...
ABC
DEFGhi
<blankLine>
JKL... (2 Replies)
Discussion started by: AjMyTechGroup
2 Replies
2. Shell Programming and Scripting
Hi All,
I have a difficult problem (at least for me) and need your help.
Situation is like this, there are a lot of files in a lot of folders and some of them files are just versions of the same file saved by careful users . Once every few months I have to clean up and keep the last version of... (2 Replies)
Discussion started by: mihaicris
2 Replies
3. Shell Programming and Scripting
I am developing a script to maintain 'n' number of versions of a file. The script will take a filename as a parameter and the number of versions to maintain. This basically does something like a FIFO. Here is what I developed. But something is not right. I have attached the script. Can u pls help... (2 Replies)
Discussion started by: vskr72
2 Replies
4. Shell Programming and Scripting
Hi,
I am trying to SSH to a GDG file from UNIX to Mainframe and it is not transferring it and giving error.
I gave the following command and as can be seen I am using the relative number i.e +1 here:
ssh -v username@remote.host "mv -P RECFM=FB,LRECL=150 /homedir/username/test.dat... (0 Replies)
Discussion started by: pravle
0 Replies
5. UNIX for Dummies Questions & Answers
Hi All ,
I am trying to run a shell script through a JCL . The requirement is I have a gdg base name and I need to create a script that will just check if the latest version of that gdg has data or not . If it doesnt have data RC 4 need to be returned . One more thing which is bothering me is i... (1 Reply)
Discussion started by: mavesum
1 Replies
6. Shell Programming and Scripting
Hi All ,
I am trying to run a shell script through a JCL . The requirement is I have a gdg base name and I need to create a script that will just check if the latest version of that gdg has data or not . If it doesnt have data RC 4 need to be returned . One more thing which is bothering me is i... (3 Replies)
Discussion started by: mavesum
3 Replies
7. UNIX for Dummies Questions & Answers
Hi,
Request Unix gurus to kindly share a script which FTPs multiple files from Unix to a Mainframe GDG.
The script should check for oldest file named as 'abc*.txt' in a directory '/dir/child'. FTP that file to MF, then remove the file from unix and then look for the next oldest file to be... (1 Reply)
Discussion started by: dsrookie
1 Replies
8. UNIX for Dummies Questions & Answers
Does anyone know how to emulate Mainframe's GDG (Generation Data Group) in AIX? (0 Replies)
Discussion started by: vidhya
0 Replies
9. AIX
Hi,
Does anyone have a solution they can share that will emulate Mainframe Generation Data Groups (GDG) on AIX?
Thank You in Advance for Your Help,
Lou (0 Replies)
Discussion started by: LouPelagalli
0 Replies
10. Shell Programming and Scripting
How can I find out in UNIX the number of superusers logged in at a system at a given time??? (2 Replies)
Discussion started by: deeptia
2 Replies
Versions(3) User Contributed Perl Documentation Versions(3)
NAME
Sort::Versions - a perl 5 module for sorting of revision-like numbers
SYNOPSIS
use Sort::Versions;
@l = sort { versioncmp($a, $b) } qw( 1.2 1.2.0 1.2a.0 1.2.a 1.a 02.a );
...
use Sort::Versions;
print 'lower' if versioncmp('1.2', '1.2a') == -1;
...
use Sort::Versions;
%h = (1 => 'd', 2 => 'c', 3 => 'b', 4 => 'a');
@h = sort { versioncmp($h{$a}, $h{$b}) } keys %h;
DESCRIPTION
Sort::Versions allows easy sorting of mixed non-numeric and numeric strings, like the 'version numbers' that many shared library systems
and revision control packages use. This is quite useful if you are trying to deal with shared libraries. It can also be applied to
applications that intersperse variable-width numeric fields within text. Other applications can undoubtedly be found.
For an explanation of the algorithm, it's simplest to look at these examples:
1.1 < 1.2
1.1a < 1.2
1.1 < 1.1.1
1.1 < 1.1a
1.1.a < 1.1a
1 < a
a < b
1 < 2
1.1-3 < 1.1-4
1.1-5 < 1.1.6
More precisely (but less comprehensibly), the two strings are treated as subunits delimited by periods or hyphens. Each subunit can contain
any number of groups of digits or non-digits. If digit groups are being compared on both sides, a numeric comparison is used, otherwise a
ASCII ordering is used. A group or subgroup with more units will win if all comparisons are equal. A period binds digit groups together
more tightly than a hyphen.
Some packages use a different style of version numbering: a simple real number written as a decimal. Sort::Versions has limited support for
this style: when comparing two subunits which are both digit groups, if either subunit has a leading zero, then both are treated like
digits after a decimal point. So for example:
0002 < 1
1.06 < 1.5
This won't always work, because there won't always be a leading zero in real-number style version numbers. There is no way for
Sort::Versions to know which style was intended. But a lot of the time it will do the right thing. If you are making up version numbers,
the style with (possibly) more than one dot is the style to use.
USAGE
The function "versioncmp()" takes two arguments and compares them like "cmp". With perl 5.6 or later, you can also use this function
directly in sorting:
@l = sort versioncmp qw(1.1 1.2 1.0.3);
The function "versions()" can be used directly as a sort function even on perl 5.005 and earlier, but its use is deprecated.
AUTHOR
Ed Avis <ed@membled.com> and Matt Johnson <mwj99@doc.ic.ac.uk> for recent releases; the original author is Kenneth J. Albanowski
<kjahds@kjahds.com>. Thanks to Hack Kampbjorn and Slaven Rezic for patches and bug reports.
Copyright (c) 1996, Kenneth J. Albanowski. All rights reserved. This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
POD ERRORS
Hey! The above document had some coding errors, which are explained below:
Around line 141:
Non-ASCII character seen before =encoding in 'Kampbjorn'. Assuming UTF-8
perl v5.16.3 2003-08-24 Versions(3)