Mod Perl 2 with byte range help

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl script to allocate next available IP from a range

Hi I am looking to automate the process in PERL of allocating IP addresses from a set range of addresses (for example a /22 network 10.10.224.1 - 10.10.227.254) I am able to query the IP addresses that are already in use in the above range, which will produce me a list like this for example...

2. Shell Programming and Scripting

[Ubuntu / PERL ]Problem installing WWW::Mechanize mod

Hello everyone, I've got some problem intalling a perl module. The installation is well done as you can see below. gueg@ux31:~$ sudo apt-get install libwww-mechanize-perl Lecture des listes de paquets... Fait Construction de l'arbre des d�pendances Lecture des informations d'�tat......

3. Shell Programming and Scripting

Perl - quick inverse of a number range

Hello, I'm trying to find an nice solution for the following: 1) I have ranges of numbers (begin-end): 10-15, 20-30, 45-50 2) I have begin limit=0 and end limit=60. 3) I need to find out number ranges between begin limit and end limit that do not overlap with the ranges in item1. In this...

4. Programming

Perl : Numeric Range Pattern Matching

hi Experts just wondering if you can help me check a number between a specific range if i have an ip address , how can i say the valid number for ip between 1 to 254 something like this if ($ip ) =~ /.../ { } what the pattern i need to type thanks

5. Shell Programming and Scripting

Perl- Output file is always 0 byte

Hi all, I am new to perl programming. However i have a script that connects to the database and spools that into an output file. Strange thing is that sometimes this script works and sometimes the ouput spool file is always 0 byte. I have verified the sql query and the query always returns...

6. Shell Programming and Scripting

Read Write byte range/chunk of data from specific location in file

I am new to Unix so will really appreciate if someone can guide me on this. What I want to do is: Step1: Read binary file - pick first 2 bytes, convert from hex to decimal. Read the next 3 bytes as well. 2 bytes will specify the number of bytes 'n' that I want to read and write...

7. Shell Programming and Scripting

Remove a byte(Last byte from the last line)

Hi All Can anyone please suggest me how to remove the last byte from a falt file .This is from the last line's last BYTE. Please suggest me something. Thank's and regards Vinay

8. Shell Programming and Scripting

Check if 2 files are identical byte-to-byte?

In my server migration requirement, I need to compare if one file on old server is exactly the same as the corresponding file on the new server. For diff and comm, the inputs need to be sorted. But I do not want to disturb the content of the file and need to find byte-to-byte match. Please...

9. Shell Programming and Scripting

Perl search and replace in range using variable

Hi. I have a file with asterisk field separators and backslash line terminators. The first field in each line names the line type. I am trying to process each range separately. Here's what the data looks like: BA*DATA\ LS*DATA1*DATA2*00020*\ TA*DATA1*DATA2*DATA3*\ TA*DATA1*DATA2*DATA3*\...

LEARN ABOUT OSX

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) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       my $constants = [map { @$_ } values %$groups];

	       constants_lookup_code_doc($constants, $class, $data);
	   }
       }

       sub generate_constants_group_lookup_doc {
	   my ($data) = @_;

	   while (my ($class, $groups) = each %$Apache2::ConstantsTable) {
	       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.16.2							    2011-02-07							  ModPerl::Code(3)

Programming