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 );