Moose::Autobox::Code(3) User Contributed Perl Documentation Moose::Autobox::Code(3)NAME
Moose::Autobox::Code - the Code role
SYNOPOSIS
use Moose::Autobox;
my $adder = sub { $_[0] + $_[1] };
my $add_2 = $adder->curry(2);
$add_2->(2); # returns 4
# create a recursive subroutine
# using the Y combinator
*factorial = sub {
my $f = shift;
sub {
my $n = shift;
return 1 if $n < 2;
return $n * $f->($n - 1);
}
}->y;
factorial(10) # returns 3628800
DESCRIPTION
This is a role to describe operations on the Code type.
METHODS
curry (@values)
rcurry (@values)
conjoin (&sub)
disjoin (&sub)
compose (@subs)
This will take a list of @subs and compose them all into a single subroutine where the output of one sub will be the input of another.
y This implements the Y combinator.
u This implements the U combinator.
meta
SEE ALSO
<http://en.wikipedia.org/wiki/Fixed_point_combinator>
<http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/20469>
BUGS
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to
cpan-RT.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
Copyright 2006-2008 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.18.2 2013-10-27 Moose::Autobox::Code(3)
Check Out this Related Man Page
Moose::Autobox::Code(3pm) User Contributed Perl Documentation Moose::Autobox::Code(3pm)NAME
Moose::Autobox::Code - the Code role
SYNOPOSIS
use Moose::Autobox;
my $adder = sub { $_[0] + $_[1] };
my $add_2 = $adder->curry(2);
$add_2->(2); # returns 4
# create a recursive subroutine
# using the Y combinator
*factorial = sub {
my $f = shift;
sub {
my $n = shift;
return 1 if $n < 2;
return $n * $f->($n - 1);
}
}->y;
factorial(10) # returns 3628800
DESCRIPTION
This is a role to describe operations on the Code type.
METHODS
curry (@values)
rcurry (@values)
conjoin (&sub)
disjoin (&sub)
compose (@subs)
This will take a list of @subs and compose them all into a single subroutine where the output of one sub will be the input of another.
y This implements the Y combinator.
u This implements the U combinator.
meta
SEE ALSO
<http://en.wikipedia.org/wiki/Fixed_point_combinator>
http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/20469 <http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-talk/20469>
BUGS
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to
cpan-RT.
AUTHOR
Stevan Little <stevan@iinteractive.com>
COPYRIGHT AND LICENSE
Copyright 2006-2008 by Infinity Interactive, Inc.
<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-03-20 Moose::Autobox::Code(3pm)
ok, i dont know any perl. actually, very very little. not much at all.
now, the task i have is that i have to go into a directory that is packed with hundreds of files that contains lots of strings of which i have to filter through. so when i get into this directory, i type:
grep -r akamai... (19 Replies)
Hello every body. I am trying to find the factorial using the following code. But it is giving the syntax error. I tried very much but in vain. Thanks in advance for helping me
factorial()
{
if
then
y=`expr $1 - 1`
x=$(( $1 \* factorial $y ))... (6 Replies)
Hi,
I got this script from the web, this generates an LDAP report in CSV format.
#!/usr/bin/perl
#
# Copyright (c) 2004
# Ali Onur Cinar &060;cinar&064;zdo.com&062;
#
# License:
#
# Permission to use, copy, modify, and distribute this software and its
# documentation for... (23 Replies)
Hi,
I need to find the number of occurrence of string in a file,
for ex:
>cat filename
abc
abc
def
ghi
ghi
ghi
ghi
abc
abc
>output would be
abc 4
def 1 (10 Replies)
I have a perl code that runs like
Code I
sub p
{
if ($d >= $D) {return}
printf "%3s"x$d++," ";
printf "%s%s\n",$_,$h{$_}?" ** ":"";
if (!$h{$_})
{
$h{$_}=1;
map {p($_)} @{$s{$_}}
}
$d--
}
($Set,$Job,$Num,$D) = (@ARGV);
map {shift} 0..3; (8 Replies)
Hello,
I have a script, but its sorta broke and I need help to tweak it
#!/usr/bin/perl
my @files_to_search = ("exportOBJ-sark.txt","ResourceRecText-ALL.txt","exportdnsrr-report.txt");
open (FL, "sark.com.txt");
my %search_hash = ();
while (my $line = <FL>) {
my @parts =... (12 Replies)
Hi All,
am trying to add two Inputs i.e., $1 and $2,
Code
#!/bin/sh
$num_sum=`expr $1+$2`
echo "Sum = $num_sum"
am giving statement sh arithemetic.sh 20 10
am getting error
arithemetic.sh: line 2: =20+10: command not found
Sum =
I want Output as
Sum = 30, (5 Replies)
HI all,
i have a line in a file it contains
Code:
one;two_1_10;two_2_10;two_3_10;three~
now i need to get the output as
Code:
one;two_1_abc_10;two_2_abc_10;two_3_abc_10;three~ ( 1 should be replaced with 1_abc for two__abc_10 , and one more thing the number of occurances of... (6 Replies)
hi,
i want to list the files from the below find commands output.
find ./* -name "*.txt" -type f -mtime +10
will give the output like
./a.txt
but i need the output in the format like (ls -lrt a.txt )
-rw-rw-rw- 1 srea nast 5 May 23 07:34 a.txt
i used xargs for the... (4 Replies)
Hello to all,
Having a ruby script that works when an argument is given in command line in this way:
ruby script.rb input_to_ruby
To accept arguments as input, inside the ruby script has
File.open(ARGV)
input_to_ruby is generated by another command, so I need to create first input_to_ruby... (6 Replies)
Hi,
I am looking for a little bit more advanced split.
Code:
#!/usr/bin/perl -w #-d
use strict;
my $Line = "value1:{value2a:value2b}:value3:{}:value5:{value6a:value6b}";
my @LineAttributes = split (/:/, $Line);
my $TotalLineAttributes = scalar @LineAttributes;
print "Line:... (4 Replies)
Original File
Server1|poweredOn|268401| Server1/Server1.vmx|Red Hat Enterprise Linux 5 (64-bit)
Need Output
Server1|poweredOn|DR|T1|268401| Server1/Server1.vmx|Red Hat Enterprise Linux 5 (64-bit)
Conduction to check find the string "SFCHT1" and "SR" and add prefix has... (4 Replies)