view release on metacpan or  search on metacpan

Bioinf.pl  view on Meta::CPAN

				for($i=0; $i < @stringDSSP; $i++){
					if($stringDSSP[$i] =~ /\W/){ $seq_positionSTR[$i]= $gap_char;}
				}
			}
		}elsif( $comm_col =~ /C/i){
				print __LINE__, " Replacing position with \gap_char \"$gap_char\"\n" if $debug2 eq 1;
				$ss_opt = 'ss'; # whether it was set or not, make it 'ss'
				for($i=0; $i < @stringDSSP_common; $i++){
					if($stringDSSP_common[$i] =~ /\W/){ $seq_positionSTR[$i]= $gap_char;}
				}
		}

Bioinf.pl  view on Meta::CPAN

         for($i=0; $i< @file; $i++){
              if($file[$i]=~/\S+\.msp *$/){ $big_msp_out_file=$file[$i]; splice (@file, $i, 1); $i--;
              #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
              # Opening zipped file
              #_______________________________________________
              }elsif($file[$i]=~/\S+\.\gz$/ or -B $file[$i]){  ## if file has xxxx.gz extension
                  my (@sso);
                  @sso=`gunzip -c $file[$i]`;
                  if(@sso < 30){  @sso=`zcat $file[$i]`; }      # if zcat fails to produce output use gunzip -c
                  if(@sso > 3000){ # if @sso is very big, I remove the useless contents
                      print "\n# open_sso_files: size of \@sso for $file[$i] exceeds 3000 lines, ", scalar(@sso), " !!! \n";

 view release on metacpan or  search on metacpan

src/boost/random/variate_generator.hpp  view on Meta::CPAN

///\endcond

/**
 * A random variate generator is used to join a random number
 * generator together with a random number distribution.
 * Boost.Random provides a vast choice of \generators as well
 * as \distributions.
 *
 * The argument for the template parameter Engine shall be of
 * the form U, U&, or U*, where U models a
 * \uniform_random_number_generator.  Then, the member

 view release on metacpan or  search on metacpan

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

'00B6', '\P ',
'00B7', '$\cdot$',
'00B8', '{\c{ }}',
'00B9', '${}^1$',
'00BA', '${}^{\b{\scriptsize o}}$',
'00BB', '$\scriptscriptstyle\gg$',
'00BC', '$1\over4$',
'00BD', '$1\over2$',
'00BE', '$3\over4$',
'00BF', '?`',
'00C0', '{\`A}',

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

# XXXXX
# Should these be surrounded by $ (math mode)?
# Also, what to do with \mu, which is listed twice?
'03B1', '\alpha',
'03B2', '\beta',
'03B3', '\gamma',
'03B4', '\delta',
'03B5', '\epsilon',
'03B6', '\zeta',
'03B7', '\eta',
'03B8', '\theta',

 view release on metacpan or  search on metacpan

Makefile.old  view on Meta::CPAN

CCDLFLAGS =  
DLEXT = dll
DLSRC = dl_win32.xs
EXE_EXT = .exe
FULL_AR = 
LD = C:\Perl\site\bin\g++.exe
LDDLFLAGS = -mdll -L"C:\Perl\lib\CORE"
LDFLAGS = -L"C:\Perl\lib\CORE"
LIBC = msvcrt.lib
LIB_EXT = .a
OBJ_EXT = .o

 view release on metacpan or  search on metacpan

corpus/config-ok.pro  view on Meta::CPAN

!   * TEMPLATE_DRAWING          $PRO_DIRECTORY\templates\imw_a3_drawing.drw
!   * TEMPLATE_SHEETMETALPART   $PRO_DIRECTORY\templates\imw_mmns_part_sheetmetal.prt
!   * TOLERANCE_STANDARD        ISO
!   * WELD_UI_STANDARD          ISO
! * CHANGED
!   * BMGR_PREF_FILE                $PRO_DIRECTORY\text\graph.pro                  $PRO_DIRECTORY\imw_graph.pro
!   * COMP_ASSEMBLE_START           Constrain_in_window                            CONSTRAIN_IN_WINDOW
!   * DISPLAY                       HIDDENVIS                                      SHADE
!   * DRAWING_SETUP_FILE            $PRO_DIRECTORY\text\din.dtl                    $PRO_DIRECTORY\imw_din.dtl
!   * FILE_OPEN_DEFAULT_FOLDER      working_directory                              WORKING_DIRECTORY
!   * NCCHECK_TYPE                  nccheck                                        NCCHECK

corpus/config-ok.pro  view on Meta::CPAN

!   * SPIN_CONTROL              DRAG
!   * SYSTEM_EDGE_HIGH_COLOR    60 60 100
!   * TOL_MODE                  NOMINAL
! 2011-08-04 jl
!  - ADDED
!    - bmgr_pref_file $PRO_DIRECTORY\text\graph.pro   (Legt die Farbkomposition für Diagramme fest (z.B. Mechanismus))
!    - sketcher_lock_modified_dims yes                (Fixiert geänderte Bemaßungen)
!    - default_draw_scale 1                           (Standardmaßstab in Zeichnungen ist 1:1)
! 2011-03-24 jr
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 view release on metacpan or  search on metacpan

t/STL-outputStl.t  view on Meta::CPAN

    note "\n", $test_name;
    $ascii_string =~ s/\h+/ /gm;  # normalize horizontal whitespace
    $ascii_string =~ s/^\s+//gm;  # trim leading whitespace on any line
    $ascii_string =~ s/\s+$//gm;  # trim trailing whitespace on any line
    #note "-----\n", $ascii_string, "\n=====\n";
    $ascii_string =~ m/^solid *(?<name>\V*?)$(?<content>.*)^endsolid *\g{name}*$/ms;
    my $name = $+{name};
    #note "\t", name => "\t", $name;
    my $content = $+{content};
    #note "\t", content => "\t", $content;
    ok $content, "${test_name}: solid/endsolid has content";

 view release on metacpan or  search on metacpan

lib/CGI/Application/Framework.pm  view on Meta::CPAN

You will want the web application to be able to access the "example"
database as a non-root user, so you need to grant access to the
database.  Do the following

    # mysql
    Welcome to the MySQL monitor.  Commands end with ; or \g.
    Your MySQL connection id is 28 to server version: 4.0.21-log

    Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

    mysql> GRANT ALL PRIVILEGES ON example.* TO

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

       ~/dev/MyApp1$ export CONFIG_FILE=/home/gordon/dev/MyApp1/config/config-dev.pl

    On windows you could use something like:

        C:\Users\gordon\dev\MyApp1: set CONFIG_FILE=C:\Users\gordon\dev\MyApp1\config\config-dev.pl

    Run the server:

        ~/dev/MyApp1$ perl server.pl 
        access your default runmode at /cgi-bin/index.cgi

 view release on metacpan or  search on metacpan

Authent.pm  view on Meta::CPAN

If you want to restrict the access to a group of users you may
check whether the script as it runs has enough permissions
to access a file and then restrict the access to this file.

    use CGI::Authent {test => 'CGI::Authent::can_read "c:\\inetpub\\group1.lck"'}

=head2 Ussage

    use CGI::Authent;
     Use the default options as set in CGI/Authent.config.pl.

Authent.pm  view on Meta::CPAN

  just 403 Forbiden response!


You may of course combine several tests :

 test => 'CGI::Authent::can_read "c:\\inetpub\\group1.lck" and CGIAuthent::between '8:00-17:00'
          or
          CGI::Authent::can_read "c:\\inetpub\\group2.lck" and CGI::Authent::between '17:00-8:00'
         '

=head2 Other functions

 CGI::Authent::forbide [$message]

 view release on metacpan or  search on metacpan

t/01-ids.t  view on Meta::CPAN

                    d=alert
                    d(",
        6  => "1
                    alert(1)",
        7  => "crypto [ [ 'aler' , 't' ] [ 'join' ] ( [] ) ] (1) ",
        8  => '<div/style=\-\mo\z\-b\i'."\n".'d\in\g:\url(//business\i'."\n".'fo.co.uk\/labs\/xbl\/xbl\.xml\#xss)>',
        9  => "_content/alert(1)",
        10  => "RegExp(/a/,alert(1))",
        11  => "x=[/&/,alert,/&/][1],x(1)",
        12  => "[1,alert,1][1](1)",
        13  => "throw alert(1)",