Free specified software for linux

ShiftJIS::Regexp contains regular expressions in Shift-JIS.

SYNOPSIS

use ShiftJIS::Regexp qw(:all);

match($string, p{Hiragana}{2}p{Digit}{2});
match($string, pH{2}pD{2});
# these two are equivalent:

This module provides some functions to use regular expressions in Shift-JIS on the byte-oriented perl.

The legal Shift-JIS character in this module must match the following regular expression:

[x00-x7FxA1-xDF]|[x81-x9FxE0-xFC][x40-x7Ex80-xFC]

To avoid false matching in multibyte encoding, this module uses anchoring technique to ensure each matching position places at the character boundaries.

cf. perlfaq6, "How can I match strings with multibyte characters?"

Functions

re(PATTERN)

re(PATTERN, MODIFIER)

Returns a regular expression parsable by the byte-oriented perl.

PATTERN is specified as a string. MODIFIER is specified as a string. Modifiers in the following list are allowed.

i case-insensitive pattern (only for ascii alphabets)
I case-insensitive pattern (greek, cyrillic, fullwidth latin)
j hiragana-katakana-insensitive pattern (but halfwidth katakana
are not considered.)

s treat string as single line
m treat string as multiple lines
x ignore whitespace (i.e. [x20nrtf]) unless backslashed
or inside a character class; but comments are not recognized!

o once parsed (not compiled!) and the result is cached internally.
o modifier
while ( ) {
print replace($_, (perl), $1, igo);
}
is more efficient than

while ( ) {
print replace($_, (perl), $1, ig);
}

because in the latter case the pattern is parsed every time
whenever the function is called.

match(STRING, PATTERN)

match(STRING, PATTERN, MODIFIER)

An emulation of m// operator aware of Shift-JIS. But, to emulate @list = $string =~ m/PATTERN/g, the pattern should be parenthesized (capturing parentheses are not added automatically).

@list = match($string, pH, g); # wrong; returns garbage!
@list = match($string,(pH),g); # good
PATTERN is specified as a string. MODIFIER is specified as a string.
i,I,j,s,m,x,o please see re().

g match globally
z tell the function the pattern matches an empty string
(sorry, due to the poor auto-detection)

replace(STRING or SCALAR REF, PATTERN, REPLACEMENT)

replace(STRING or SCALAR REF, PATTERN, REPLACEMENT, MODIFIER)

An emulation of s/// operator but aware of Shift-JIS.
If a reference to a scalar is specified as the first argument, substitutes the referent scalar and returns the number of substitutions made. If a string (not a reference) is specified as the first argument, returns the substituted string and the specified string is unaffected.

MODIFIER is specified as a string.

i,I,j,s,m,x,o please see re().
g,z please see match().

jsplit(PATTERN or ARRAY REF of [PATTERN, MODIFIER], STRING)

jsplit(PATTERN or ARRAY REF of [PATTERN, MODIFIER], STRING, LIMIT)

An emulation of CORE::split but aware of Shift-JIS.
In scalar/void context, it does not split into the @_ array; in scalar context, only returns the number of fields found.
PATTERN is specified as a string. But as PATTERN has no special meaning; it splits the string on a single space similarly to CORE::split / /.

When you want to split the string on whitespace, pass an undefined value as PATTERN or use the splitspace() function.

jsplit(undef, " x81x40 This is x81x40 perl.");
splitspace(" x81x40 This is x81x40 perl.");
# (This, is, perl.)

If you want to pass pattern with modifiers, specify an arrayref of [PATTERN, MODIFIER] as the first argument. You can also use "Embedded Modifiers").

MODIFIER is specified as a string.

i,I,j,s,m,x,o please see re().

splitspace(STRING)

splitspace(STRING, LIMIT)

This function emulates CORE::split( , STRING, LIMIT). It returns a list given by split STRING on whitespace including "x81x40" (IDEOGRAPHIC SPACE). Leading whitespace characters do not produce any field.

Note: splitspace(STRING, LIMIT) is equivalent to jsplit(undef, STRING, LIMIT).

splitchar(STRING)

splitchar(STRING, LIMIT)

This function emulates CORE::split(//, STRING, LIMIT). It returns a list given by split of STRING into characters.
Note: splitchar(STRING, LIMIT) is equivalent to jsplit(, STRING, LIMIT).

gperfmeter displays performance statistics for a given hostname.

If no host is specified, statistics on the current host are metered. You can display performance values in a solid or line strip chart.

The performance data automatically scales to accommodate increasing or decreasing values for the host machine. The gperfmeter preferences sheet provides a simple interface for accessing all of the application resources.

StatRelief downloads and displays a digest of your SourceForge and freshmeat project statistics.
It is ideal if you spend way too much time watching and repeatedly refreshing those pages when you have something better to do.
Enhancements:
- A number of retries may now be specified if less than an entire SourceForge page is returned by their server.

nagios-check_internet project is a Nagios plugin that checks if the Internet connection is still up by pinging specified hosts. If one of them responds, the connection is considered up.

Modify the internetservers file that came with the archive and put it somewhere on your system where the plugin can read it (I use /etc/nagios/etc/internetservers).

DBIx::Wrapper::Config Perl module allows the use of a configuration file in XML specifying information required to connect to databases using DBIx::Wrapper.

This way, your database connection specifications can be kept in one place.

Each "db" element specifies a key/name for the database connection, which should be passed as the $db_key argument to connect() in order to connect to that database.

The "db" elements children specify the dsn, authentication, and attribute information. dbi:mysql:database=test_db;host=example.com;port=3306 test_user test_pwd test_user test_pwd connect($db_key, $conf_path, %dbix_wrapper_attrs) Return a DBIx::Wrapper object connected to the database specified by $db_key in the file at $conf_path.

%dbix_wrapper_attrs is the optional 5th argument to DBIx::Wrappers connect() method, specifying handlers, etc. The file specified by $conf_path should be in the format specified in the DESCRIPTION section of this document.

Installation:

perl Makefile.PL
make
make test
make install

bsidentd provides a minimal and secure identd server that can generate random usernames.
bsidentd is a bare minimum and secure identd server, based on nullidentd. It can generate a random string for a username. It makes IRC servers happy, and it helps avoid ban scripts by not having a fixed username.
Alternately, a fixed username can be specified on the command line.
Installation? The usual. Check the makefile, make install then add an entry to
inetd.conf:
auth stream tcp nowait nobody /usr/sbin/tcpd /usr/local/sbin/nullidentd
Enhancements:
- Added query limit.
- Patch from Sven Oliver Moll to allow a username to be specified on the command line. bsidentd can now fully replace nullidentd.
- Debian package

syncpasswd is an Expect script that synchronizes passwords via SSH on multiple platforms (Linux/BSD, OS X, and Solaris).

It takes hostnames as a list of arguments and changes the specified user passwords on those hosts. syncpasswd outputs results to stdout and logs to /var/log/syncpasswd.log (by default).