view release on metacpan or  search on metacpan

lib/Bio/SDRS.pm  view on Meta::CPAN

	    open (ECOUT, ">$file") || die "can not open EC50 output file: $!\n";
	    #
	    # The following statement causes the system to write each output line
	    # to disk immediately, rather than waiting for a buffer to fill.
	    #
	    select((select(ECOUT), $| = 1)[$[]); # Change buffering to line by line.
	    my $last_dose = $self->{LDOSE};
	    my $icount = 0;
	    for (my $dose = $self->{LDOSE};
		 $dose < $self->{HDOSE} * $self->{MULTIPLE};
		 $dose *= $self->{MULTIPLE}) {

 view release on metacpan or  search on metacpan

lib/BioX/Workflow/Plugin/Drake.pm  view on Meta::CPAN

    ;	INPUT: {$self->indir}/{$sample}.csv
    ;	OUTPUT: {$self->outdir}/{$sample}.csv
    ;	thing: other thing
    ;

    /home/guests/jir2004/workflow/output/backup/$[SAMPLE].csv <- /home/guests/jir2004/workflow/$[SAMPLE].csv
        cp $INPUT $OUTPUT


    ;
    ; Ending backup

lib/BioX/Workflow/Plugin/Drake.pm  view on Meta::CPAN

    $self->process(join("\n\t", @tmp));

    my $tmp = "{\$self->OUTPUT} <- {\$self->INPUT}\n\t";
    $DB::single=2;
    if($self->min){
        $tmp =~ s/\$SAMPLE/\$[SAMPLE]/g;
    }
    my $newprocess = $tmp.$self->process;
    $self->process($newprocess);
};

lib/BioX/Workflow/Plugin/Drake.pm  view on Meta::CPAN

    #my $self = shift;

    #my $tmp = "{\$self->OUTPUT} <- {\$self->INPUT}\n\t";
    #$DB::single=2;
    #if($self->min){
        #$tmp =~ s/\$SAMPLE/\$[SAMPLE]/g;
    #}
    #my $newprocess = $tmp.$self->process;
    #$self->process($newprocess);

#};

 view release on metacpan or  search on metacpan

example/example3/workflow.min.drake  view on Meta::CPAN

;	INPUT: {$self->indir}/{$sample}.csv
;	OUTPUT: {$self->outdir}/{$sample}.csv
;	thing: other thing
;

/home/guests/jir2004/workflow/output/backup/$[SAMPLE].csv <- /home/guests/jir2004/workflow/$[SAMPLE].csv
	cp $INPUT $OUTPUT


;
; Ending backup

example/example3/workflow.min.drake  view on Meta::CPAN

; Local Variables:
;	OUTPUT: {$self->outdir}/{$sample}.grep_VARA.csv
;	INPUT: {$self->indir}/{$sample}.csv
;

/home/guests/jir2004/workflow/output/grep_vara/$[SAMPLE].grep_VARA.csv <- /home/guests/jir2004/workflow/output/backup/$[SAMPLE].csv
	echo "Working on /home/guests/jir2004/workflow/output/backup/$SAMPLEcsv"
	grep -i "VARA" /home/guests/jir2004/workflow/output/backup/$SAMPLE.csv >> /home/guests/jir2004/workflow/output/grep_vara/$SAMPLE.grep_VARA.csv \
	|| touch /home/guests/jir2004/workflow/output/grep_vara/$SAMPLE.grep_VARA.csv

example/example3/workflow.min.drake  view on Meta::CPAN

; Local Variables:
;	OUTPUT: {$self->outdir}/{$sample}.grep_VARA.grep_VARB.csv
;	INPUT: {$self->indir}/{$sample}.grep_VARA.csv
;

/home/guests/jir2004/workflow/output/grep_varb/$[SAMPLE].grep_VARA.grep_VARB.csv <- /home/guests/jir2004/workflow/output/grep_vara/$[SAMPLE].grep_VARA.csv
	grep -i "VARB" /home/guests/jir2004/workflow/output/grep_vara/$SAMPLE.grep_VARA.csv >> /home/guests/jir2004/workflow/output/grep_varb/$SAMPLE.grep_VARA.grep_VARB.csv || touch /home/guests/jir2004/workflow/output/grep_varb/$SAMPLE.grep_VARA.grep_VARB...


;
; Ending grep_VARB

 view release on metacpan or  search on metacpan

Bioinf.pl  view on Meta::CPAN

sub ctime{
	 @DoW = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	 @MoY = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

	 local($time) = @_;
	 local($[) = 0;
	 my($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);

	 # Determine what time zone is in effect.
	 # Use GMT if TZ is defined as null, local time if TZ undefined.
	 # There's no portable way to find the system default timezone.

Bioinf.pl  view on Meta::CPAN

	 @DoW = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	 @MoY = ('Jan','Feb','Mar','Apr','May','Jun',
				'Jul','Aug','Sep','Oct','Nov','Dec');

	 my($time) = @_;
	 local($[) = 0;
	 local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst,$final_time);

	 # Determine what time zone is in effect.
	 # Use GMT if TZ is defined as null, local time if TZ undefined.
	 # There's no portable way to find the system default timezone.

 view release on metacpan or  search on metacpan

lib/Biblio/bp/lib/bp-bibtex.pl  view on Meta::CPAN

  if (defined $rec{'author'} ) {
    # check for braces around the whole name, in which case we will
    # assume it is a corporate author.
    if ( ($rec{'author'} =~ /^\{/) && ($rec{'author'} =~ /\}$/) ) {
      $can{'CorpAuthor'} = substr($rec{'author'}, $[+1, length($rec{'author'})-2);
    } else {
      $can{'Authors'} = &bibtex_name_to_canon( $rec{'author'} );
    }
    delete $rec{'author'};
  }

 view release on metacpan or  search on metacpan

lib/Business/DPD/Render/PDFReuse/SlimA6.pdf  view on Meta::CPAN

†_egWïð°uIP­¼à×+`<êêѵöêÏŒBÉ—¦Ö²;Ê�Y;�ü+¿ª4—Uä4\Œ®ì€@7<ÜÑ:†³Ã;ò¥MOKäÒp߆ìqò¥É#¡\ÇÑ4`µ¯§ èáÑÚ:jà¡m½=*BÚPWÏ‚I{öá4’´wõ|Ùz¦K¤D›é-Ï΂"BºSwF¡ÂðË›×èÔ¼ÁÃaJã¦à·„Âyò²F®4}¤’Ngäû`@€ë{Áߤ^ɨWQ}ªÐØ€úqƽZ÷>DÀù‹ÙW&¡„읢¨á'I...
«y³®WÔÝÒKV¢ÇÔwù_SêuU–ø4‚¶¨{äœzC¹a»a·p
gãì	žã›]DQ
Y‚llËE!ÝHtJÙ;/{G5NñÀ,K˜ç¥°@…<é3,HR>5ÀÈ$–ƲáR4´K¤ß܇Š9zŒÃ\cCÞ¢L‰+ô˜‚ÖVâ{"9$ˆDü‰ãý?•Ñ
À
ňj¡€ümÉ`¡íJR-@a\Š—Wùͧ	ª3‘T§§íÓÓƒ|ù	ÆíÌÉÛ:sapÅ1ÎA%qΝ¨t{-\i¼¿˜È®°1BuêÖi¬N)iþéùëëw_9ûgüïŸw,¯næ'ç:ð;ÅGH/>9ñÔGN¥zÁRTƒþfÔkËp»T]œj؁¤ª˜fÁË›t[4¬g±:PûÍ7Ì€^Ó€Áe5ª†[ÌQ�þÍ16ÐØXæÆLkäK·ÆØÓ@VF”	¯ŒùpY“P»"3Ÿ†»Ú`´Ò(	/q'üA?d«...
ÿçõÞgÒß;°ééã3ÏGqâø/7¤^~rÓHñ7ü¤·fãÎâ{ÓçŠÅó;šFZ7|úË«·V„Aë×Àó¯
Ž2zÉð
|X’DQŽ
iµ„e$‰¼ÕÕ"vÑohVÍF¬Ag¹oÌæ0»¾€™²~»@KÝMB|Ȥf¯ÄAs%ê“*ôöê•û5®vþÏÿ‘æ'GŠmom#,zí-ýŸ€hÅn#ò„¼$[‡—ÜØEkk‘îª"Q
1E4¶Œ…ª°êaÁ‚q¬.Z«Qª­.1-_ºbêbz=Ó„¿˜º˜^bóÉþ:\WӬت²Ö@ì[2©BJÍܬh*€w@@*´àOšm(ÌiX�j<ÂEBÕÁê@5”˜õƖŤ(dúQ¿­FG>‡[‡Á·&Bk9Õqµñ8¡
[tÕR¨[¸A?_¸kP¯Ž:.²¼–¬nqÕ67q¾*q‰,Qðz\\3ðÈI7’½/{æƒâé±·ð–Oc|"ö¦¾s|ßs—žÒ×brü™ë_#moໟì?0ÿà}|`lwþ§
}©­‡7ž.Þر;Á'S+€S<Úk(˜p4Ì#Ic!ˆœ3"¡÷Mž›÷8œpÃ]Í”YøÂØròù=DŒ#°ü0øe°>8ê’
¬no‹äW|Ió¥k†Î$	¬&Jj%"R*Y8B,¢ÄQMø|é3s |nÈlƒ¼‹íÚ·Œ ...
îJ÷{£TàËD3™¶Ií7;UÉbXŒb!Š9™œÃB³®;A^ŒË䁩'O¤ÿU|·8„øΩÌÆÆÃÅçùI»k×øÞ·ÿËxµ7qÑ½»Ú]=ö%YÒê±’liµ’,„ümÄ#ÞÌûáÔqˆÁ*&<mÀ Ó˜™(±ƒ!	´Ó’IH&PhZ(Ô0¼J'4eÒ4
Ó¤´a”Ӑ!mI@î½Wð§3µ´ÚÏ»WÚ{¿ï|眛»ÿ ^ÜмÙÁ£,ìx=³à"‚àž^b³ÀV­Ì,5®
Lš™²øS……íÂÃà€+–B`¾zÔæIÁó­£ÁHÊŠþ÷ERÒÈY9Ãû9êÓò÷áxiäŒîëÓ`¦+Ó‹,ÍÊ*¥Ãô¬Ð-ö˜·ˆ¯ðûÅ
ñºð¹(	WlíV«h9“ÍK–xœfÆf•xŽv™LNÙãö˨-Ü(é²L”q=].QŒ~Mx-‰KÅJƒ+z­ƒaЊ™L±ºFݨRjÐõÿÖ˜ùŸ½÷óG”(/E#äít!	G|:Rë8¼7>´É°×äôÂè8ýÀQ?ò‡�ŸM¦›º˜¥±VÛXÔ /¾M°“<î...
A¤„p)òƒóA¸h…�þ—>EQ^SI•Š„«ÅThR¸.9¯ø©Pcx¥¥_!,µ/qu[ÖóëÅç¤.µ3ÜKmµôñ[Å—¤usø‡üNq§ÃŸ§==Q¢Ù¼šÇ¤Å€F1ÍPQ®K`sñ‰noŸ—ô†|Â	ƒ0í¤wä=¼?aòû–ê8TçL^¨Ñ)XN'‡ò/¯ž«o¡K ßôYÆ@‘«Ax
(o£#Øm‡<4ä$Øv`Ő@1¨-`
Ø
¸S;¬%Ð#ѣጧ›4"bÃÿ8&dcMGß‹y*àš€fCR„nÙ

 view release on metacpan or  search on metacpan

lib/Business/LCCN.pm  view on Meta::CPAN

                    if $emit_warnings;
            } elsif ( $input =~ m/^\s*(0(?:01|10))\b/ ) {
                carp
                    qq{LCCN input "$input" starts with "$1", suggesting you've copied in part of a MARC record. Please remove MARC record formatting from the LCCN.}
                    if $emit_warnings;
            } elsif ( $input =~ m/^\s*(\$[ab])\b/ ) {
                carp
                    qq{LCCN $input "input" starts with "$1", suggesting you've copied in part of a MARC record. Please remove MARC record formatting from the LCCN.}
                    if $emit_warnings;
            } elsif ( $input =~ m/#/ ) {
                carp

 view release on metacpan or  search on metacpan

AuthorizeNet/AIM/ErrorCodes.pm  view on Meta::CPAN

                 'notes' => 'The system-generated void for the original card code-rejected and AVS-rejected transaction failed.',
                 'reason' => 'This transaction has been declined.'
               },
      '49' => {
                'notes' => 'The transaction amount submitted was greater than the maximum amount allowed.',
                'reason' => 'A transaction amount greater than $[amount] will not be accepted.'
              },
      '24' => {
                'notes' => '',
                'reason' => 'The Nova Bank Number or Terminal ID is incorrect. Call Merchant Service Provider.'
              },

 view release on metacpan or  search on metacpan

lib/CAE/Nastran/Nasmod.pm  view on Meta::CPAN

#---------------------
# filter model
# return a model
# filter array:
# $[0]: pattern for matching the comment
# $[1]: pattern for matching the row1 of entity
# $[2]: pattern for matching the row2 of entity
# an entity matches when every pattern of the given filter is found in entity at the given place.
#---------------------
sub filter
{
	my $self = shift;