Help for this page

Select Code to Download


  1. or download this
    my ( $extention, $type ) = split '=', `assoc $arg_item 2>nul`;
    my( undef, $cmd ) = split '=', `ftype $type 2>nul`;
    
  2. or download this
    c:\test>assoc .pl
    .pl=Perl
    
    c:\test>ftype Perl
    Perl="c:\perl\bin\perl.exe" -sw "%1" %*
    
  3. or download this
    my( undef, $cmd ) = split '=', `ftype $type 2>nul`;
    
  4. or download this
    my ( undef, $type ) = split '=', `assoc $arg_item 2>nul`;