04-09-2013
The code does work in Solaris. -o option
---------- Post updated at 11:41 AM ---------- Previous update was at 11:32 AM ----------
The second period is a typo. sorry
---------- Post updated at 11:42 AM ---------- Previous update was at 11:41 AM ----------
Thank you. it works
This User Gave Thanks to e_mikey_2000 For This Post:
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi, I'm new to unix and have absolutely no experience with it. I am trying to change the network setting on the only computer on our network with SCO Unix. We switched ISP's and now have a new set of IP's. I can't for the life of me figure out how to go in and change these settings, please help.... (12 Replies)
Discussion started by: PBNOSGT
12 Replies
2. SCO
I am trying to find out if you can create an ACL for telnet sessions and restrict it to a certain subnet/IP range..
any information or where to look would be greatly appreciated.
thanks (1 Reply)
Discussion started by: marvin51796
1 Replies
3. Shell Programming and Scripting
Hmmm, tough question for me, so I put it here.
I am trying to use shell script or mysql to do the following thing.
tableA, in which all are single ips.
sip
-------
1.2.3.4
8.8.8.8
123.3.32.1
....
and tableB, a list of our group subnets.
subnet
---------
1.0.0.0/8
20.0.1.0/24 (2 Replies)
Discussion started by: fedora
2 Replies
4. Shell Programming and Scripting
Hi
i have a requirement that is
extract the max length word from a file ?
plz reply (2 Replies)
Discussion started by: vankireddy
2 Replies
5. Shell Programming and Scripting
Hi
i have a file which have a pattern like this
Nov 10 session closed
Nov 10 Nov 9 08:14:27 EST5EDT 2010 on tty .
Nov 10 Oct 19 02:14:21 EST5EDT 2010 on pts/tk .
Nov 10 afrtetryytr
Nov 10 session closed
Nov 10 Nov 10 03:21:04 EST5EDT 2010
Dec 8 Nov 10 05:03:02 EST5EDT 2010
... (13 Replies)
Discussion started by: Himanshu_soni
13 Replies
6. UNIX for Dummies Questions & Answers
Hi,
We have an app specific legacy environment running SCO Openserver 5.0.7. I need to be able to (1) scan a pre-existing “form” consisting of logo/boxes/lines/static text as an image , (2) lay a print file from the app "on top of the image" and (3) output the "merge" as a PDF file.
Scanning... (1 Reply)
Discussion started by: 65bit
1 Replies
7. IP Networking
Is there a command that can lookup ip address, subnet mask, gateway, and dns all at the same. I know ifconfig can lookup ip address and subnet mask. I know route -n can lookup gateway. Not sure about a dns command. So I hope there is a way to lookup ip address, subnet mask, gateway, and dns all at... (2 Replies)
Discussion started by: cokedude
2 Replies
8. Windows & DOS: Issues & Discussions
I currently have a text file which looks like this
2010.26 (0.0306746) @ 59,19
I want to remove all 22 characters up till the "59"
NOTE: REMOVE, not replace with (null)
NOTE2: The 59 CANNOT be taken as a number to consider in the script... it is not fixed. The only thing that is fixed is... (2 Replies)
Discussion started by: pasc
2 Replies
9. Shell Programming and Scripting
I have this subnet file shown below. How can I calculate all ip addresses from that list
103.22.200.0/22
141.101.64.0/18
10.0.0.0/22I need to be able to read the subnet file and print all IPs in those subnet to an out put file (3 Replies)
Discussion started by: e_mikey_2000
3 Replies
10. Shell Programming and Scripting
Hi my problem is that I need to send a form to a web address using curl, from a unix shell, the web address on the receiving end will only accept incoming data from a specific ip address, and port, on another machine on our intranet, and I can not run curl on that machine. Is there any way I... (5 Replies)
Discussion started by: Paul Walker
5 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)