10-30-2010
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hye all,
I would like some help with reading in a file in which the data is seperated by commas. for instance:
input.dat:
1,2,34,/test
for the above case, the fn. will store the values into an array -> data as follows:
data = 1
data = 2
data = 34
data = /test
I am trying to write... (5 Replies)
Discussion started by: sidamin810
5 Replies
2. UNIX for Dummies Questions & Answers
Hi,
Is their an easy way to realloate hard drive space on Solaris 10.
For example :
/c20td0 10G
/space 90 G
I would like to move some of the hard-drive space from "/space" and add it to "/c20td0". In Windows this can be easily done using Partition magic, anything similar for UNIX? (4 Replies)
Discussion started by: annointed3
4 Replies
3. UNIX for Advanced & Expert Users
Hi,
I have a solaris 9-sparc box, which after bouncing is giving swap space related error messages(that swap space is not enough). could it be possible that there was some command issued or setting made before bouncing, which was lost after bouncing? please let me know how i can add swap space... (1 Reply)
Discussion started by: 0ktalmagik
1 Replies
4. Programming
Hi
I'm currently using C++ on a HP-UX 11i system (upgrading some libraries) and am encountering a problem with the process crashing when allocating memory via a call to new (a rather large array of objects are being created).
Is there a way to find out what the sizes of the stack and heap are?... (1 Reply)
Discussion started by: themezzaman
1 Replies
5. Shell Programming and Scripting
Hi
Simple thing has been driving me nuts. I have used the following code is ksh scripts to get data from Oracle table and then display it, allowing user to select one of the data options returned...
REP_DATA=`sqlplus -s ${WMSDB} <<EOF
SET SERVEROUTPUT ON FEEDBACK OFF... (0 Replies)
Discussion started by: mikem22
0 Replies
6. Shell Programming and Scripting
Hi,
I have tried to find some sort of previous similar thread on this but not quite close to what I want to achieve.
Basically I have two class of data in my file..e.g
1,1,1,1,1,2,yes
1,2,3,4,5,5,yes
2,3,4,5,5,5,no
1,2,3,4,4,2,no
1,1,3,4,5,2,no
I wanted to read the "yes" entry to an... (5 Replies)
Discussion started by: ahjiefreak
5 Replies
7. Linux
have a VMWARE machine, I have extended it from 20GB to 30GB for Linux box.
The linux box shows this for df -hal:
Filesystem Size Used Avail Use% Mounted on
-dev-mapper-VolGroup00-LogVol00
19G 5.9G 12G 34% -
proc 0 0 0 - -proc
sysfs 0 0 0 - -sys
devpts 0 0 0 - -dev-pts
-dev-sda1 99M 13M... (1 Reply)
Discussion started by: mackman
1 Replies
8. Programming
if i declare both but don't input any variables what values will the int array and file pointer array have on default, and if i want to reset any of the elements of both arrays to default, should i just set it to 0 or NULL or what? (1 Reply)
Discussion started by: omega666
1 Replies
9. UNIX for Dummies Questions & Answers
I have installed samba by cmd yup install samba -a
and configured my samba server.But i want my samba users to lo-gin from windows users and contain allocated amount of space.
plz help me............ (1 Reply)
Discussion started by: yashwanthguru
1 Replies
10. AIX
We are receiving the below error message when trying to encrypt or decrypt a file on AIX server :
gpg: out of memory while allocating 8192 bytes
gpg process was working for years on the server until the day we started to see this.
This same gpg encryption is working on an other AIX server... (17 Replies)
Discussion started by: sradithya
17 Replies
LEARN ABOUT DEBIAN
router::simple::cookbook
Router::Simple::Cookbook(3pm) User Contributed Perl Documentation Router::Simple::Cookbook(3pm)
NAME
Router::Simple::Cookbook - The Router::Simple Cookbook
FAQ
How to create Sinatra-ish framework with Router::Simple?
Please read the following example code.
package MySinatraish;
use Router::Simple;
use Plack::Request;
sub import {
my $pkg = caller(0);
my $router = Router::Simple->new();
my $any = sub ($$;$) {
my ($pattern, $dest, $opt) = do {
if (@_ == 3) {
my ($methods, $pattern, $code) = @_;
($pattern, {code => $code}, +{method => [ map { uc $_ } @$methods ]});
} else {
my ($pattern, $code) = @_;
($pattern, {code => $code}, +{});
}
};
$router->connect(
$pattern,
$dest,
$opt,
);
};
no strict 'refs';
# any [qw/get post delete/] => '/bye' => sub { ... };
# any '/bye' => sub { ... };
*{"${pkg}::any"} = $any;
*{"${pkg}::get"} = sub {
$any->([qw/GET HEAD/], $_[0], $_[1]);
};
*{"${pkg}::post"} = sub {
$any->([qw/POST/], $_[0], $_[1]);
};
*{"${pkg}::as_psgi_app"} = sub {
return sub {
if (my $p = $router->match($_[0])) {
[200, [], [$p->{code}->()]];
} else {
[404, [], ['not found']];
}
}
};
}
package MyApp;
use MySinatraish;
get '/' => sub {
'top';
};
post '/new' => sub {
'posted';
};
as_psgi_app;
How to switch from HTTPx::Dispatcher?
HTTPx::Dispatcher is class specific declararative router.
package MyApp::Dispatcher;
use HTTPx::Dspatcher;
connect '/', {controller => 'foo', action => 'bar'};
1;
The following script is same as above.
package MyApp::Dispatcher;
use Router::Simple::Declare;
my $router = router {
connect '/', {controller => 'foo', action => 'bar'};
};
sub match { $router->match() }
How to use Router::Simple with non-strictly-MVC application?
use Router::Simple::Declare;
my $router = router {
connect '/foo/bar/' => { 'target' => '/foobar.asp' };
connect '/topics/:topic' => { target => '/my-topic.asp' };
connect '/products/{Category:.*}' => { target => '/products.asp', Category => 'All' };
connect '/zipcode/{zip:[0-9]{5,5}}' => {target => '/zipcode.asp' };
};
You can pass the target path as destination.
AUTHOR
Tokuhiro Matsuno <tokuhirom AAJKLFJEF GMAIL COM>
LICENSE
Copyright (C) Tokuhiro Matsuno
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
Router::Simple
perl v5.14.2 2011-05-15 Router::Simple::Cookbook(3pm)