Help for this page

Select Code to Download


  1. or download this
    if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.*?)</file>}
    +{}s ) {
                ( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );
    
  2. or download this
    if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.{$2})</file
    +>}{}s ) {
                ( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );
    
  3. or download this
    if ( $indata =~ s{<file fiop="([^"]+)" length="([^"]+)"/>(.*)</file>}{
    +}s ) {
                ( $fiop, $fileLength, $fileData ) = ( $1, $2, $3 );