06-04-2008
Quote:
Originally Posted by
System Shock
..well, obviously you are running at the very least a different version of sort because it works for me; you didn't specify an OS or sort version. In any case, it still stands that a quick look at the man pages of whatever OS and sort version you are using would've given you the answer.
I'm not interested in having a posting war with you. Please just ignore my posts.
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I am new to UNIX and I am more used to simple commands like those in VMS.
One of them is the ability to get the output from a job using the /out=<file> command in VMS.
I want to submit a job (a set of unix commands) using the AT command but to get the output in a file like that used in... (4 Replies)
Discussion started by: SpanishPassion
4 Replies
2. Shell Programming and Scripting
Hi!
Can anyone tell me what went wrong in my shell script?
for dt_val in `cut -f 1 -d '|' /prod/ods/satyaki/sqlldr/grp.dat`
do
echo $dt_val
done
And, the output is -
23
39 (7 Replies)
Discussion started by: satyakide
7 Replies
3. Solaris
i am entering the command, not get the total out put
see the output what i am getting.
SQL> select dbms_metadata.get_ddl ('TABLESPACE','SYSTEM') FROM DUAL;
DBMS_METADATA.GET_DDL('TABLESPACE','SYSTEM')
--------------------------------------------------------------------------------
... (0 Replies)
Discussion started by: pmrajesh21
0 Replies
4. UNIX for Advanced & Expert Users
Well, I was originally going to post this snippet in the original thread titled "how to output ones endlessly like /dev/zero", but that topic was closed without an efficient answer.
It was difficult to find (build) a satisfactory answer to this one, so I thought I'd share it here and as a "fill... (1 Reply)
Discussion started by: Gliktch
1 Replies
5. Shell Programming and Scripting
All,
Can anyone please help me with the below scenario in korn shell script.
Can anyone please give me some hints to proceed on this.
I have a Flat file of the below format.
Input file format:... (1 Reply)
Discussion started by: sp999
1 Replies
6. Shell Programming and Scripting
Greetings,
I have a hard time creating a large number of user profiles in a database.
The data file looks like this :
01/01/80 Mitch Conley
.
.
.
.
And I need to put the output into:
Name: Mitch
Surname: Conley
Birthday: 01/01/80
Thanks in advance! (3 Replies)
Discussion started by: hemo21
3 Replies
7. Shell Programming and Scripting
hello,
i use following command:
md5sum TEST.xml
the output looks like:
900hjidur84hjr938ikv TEST.xml
as you can see, the first part is the md5 code, the second part is the file name, but i only want the first part(md5 code), and save it to a file, how to do that? thanks. (2 Replies)
Discussion started by: zbc
2 Replies
8. Shell Programming and Scripting
Hi, I'm new to korn and having trouble capturing the text output from one program in an array that I can then feed into another program. Direct approaches didn't work, so I've tried to break it down thus:
The program lonlat2pixline gives the values I need in the second column, so I print that... (4 Replies)
Discussion started by: daurin
4 Replies
9. Shell Programming and Scripting
Platform: RHEL 5.4
In the below text file I have strings like following.
$ cat /tmp/mytextfile.txt
DISK1
DISK10
DISK101
DISK102
DISK103
DISK104
DISK105
DISK106
DISK107
DISK108
DISK109
DISK110
DISK111
DISK112
DISK113
DISK114 (8 Replies)
Discussion started by: kraljic
8 Replies
10. UNIX for Beginners Questions & Answers
Can i use 'column' command to get the required 3rd column output?
Input example:
1 2 345678 90
2 2 356 42
3 3 8265 55
Output required:
1 2 345678 90
2 2 356 42
3 3 8265 55
Basically i want the 3rd column to be justified to the right, instead of left.... (3 Replies)
Discussion started by: nurul_nadzirah
3 Replies
LEARN ABOUT MOJAVE
modperl::code
ModPerl::Code(3) User Contributed Perl Documentation ModPerl::Code(3)
NAME
$class::Const - Perl Interface for $class Constants
SYNOPSIS
CONSTANTS
EOF
my $groups = $data{$class};
for my $group (sort keys %$groups) {
print $fh <<"EOF";
":$group"
use $class::Const -compile qw(:$group);
The ":$group" group is for XXX constants.
EOF
for my $const (sort @{ $groups->{$group} }) {
print $fh "=head3 C<$class::$const>
";
}
}
print $fh "=cut
";
}
}
sub generate_constants_lookup_doc {
my ($data) = @_;
foreach my $class (sort keys %$Apache2::ConstantsTable) {
my $groups = $Apache2::ConstantsTable->{$class};
my $constants = [sort map { @$_ } values %$groups];
constants_lookup_code_doc($constants, $class, $data);
}
}
sub generate_constants_group_lookup_doc {
my ($data) = @_;
foreach my $class (sort keys %$Apache2::ConstantsTable) {
my $groups = $Apache2::ConstantsTable->{$class};
constants_group_lookup_code_doc($class, $groups, $data);
}
}
sub constants_group_lookup_code_doc {
my ($class, $groups, $data) = @_;
my @tags;
my @code;
while (my ($group, $constants) = each %$groups) {
$data->{$class}{$group} = [
map {
my @ifdef = constants_ifdef($_);
s/^($constant_prefixes)_?//o;
$seen_const{$class}{$_}++;
$_;
} @$constants
];
}
}
sub constants_lookup_code_doc {
my ($constants, $class, $data) = @_;
my (%switch, %alias);
%alias = %shortcuts;
my $postfix = lc $class;
my $package = $class . '::';
my $package_len = length $package;
my $func = canon_func(qw(constants lookup), $postfix);
for (@$constants) {
if (s/^($constant_prefixes)(_)?//o) {
$alias{$_} = join $2 || "", $1, $_;
}
else {
$alias{$_} ||= $_;
}
next unless /^([A-Z])/;
push @{ $switch{$1} }, $_;
}
for my $key (sort keys %switch) {
my $names = $switch{$key};
for my $name (@$names) {
my @ifdef = constants_ifdef($alias{$name});
push @{ $data->{$class}{other} }, $name
unless $seen_const{$class}{$name}
}
}
}
sub generate_exports {
my ($self, $c_fh) = @_;
require ModPerl::WrapXS;
ModPerl::WrapXS->generate_exports($c_fh); }
# src/modules/perl/*.c files needed to build APR/APR::* outside # of mod_perl.so sub src_apr_ext {
return map { "modperl_$_" } (qw(error bucket),
map { "common_$_" } qw(util log)); }
1; __END__
NAME
ModPerl::Code - Generate mod_perl glue code
SYNOPSIS
use ModPerl::Code ();
my $code = ModPerl::Code->new;
$code->generate;
DESCRIPTION
This module provides functionality for generating mod_perl glue code. Reason this code is generated rather than written by hand include:
consistency
thin and clean glue code
enable/disable features (without #ifdefs)
adapt to changes in Apache
experiment with different approaches to gluing
AUTHOR
Doug MacEachern
perl v5.18.2 2015-06-18 ModPerl::Code(3)