HEX

Server: Apache

System: Linux 4.19.0-0.bpo.9-amd64 x86_64 at red40

User: u547966 (5490)

PHP: 5.3.29-mh2

Disabled: syslog, dl, popen, proc_open, proc_nice, proc_get_status, proc_close, proc_terminate, posix_mkfifo, chown, chgrp, accelerator_reset, opcache_reset, accelerator_get_status, opcache_get_status, pcntl_alarm, pcntl_fork, pcntl_waitpid, pcntl_wait, pcntl_wifexited, pcntl_wifstopped, pcntl_wifsignaled, pcntl_wifcontinued, pcntl_wexitstatus, pcntl_wtermsig, pcntl_wstopsig, pcntl_signal, pcntl_signal_dispatch, pcntl_get_last_error, pcntl_strerror, pcntl_sigprocmask, pcntl_sigwaitinfo, pcntl_sigtimedwait, pcntl_exec, pcntl_getpriority, pcntl_setpriority

#!/usr/bin/perl -w use Parse::RecDescent; my $PCSV_parser = Parse::RecDescent->new(<<'EOGRAMMAR'); file: <skip: '[ \t]*'> line(s?) line: field(s? /,|=>/) "\n" { $item[1] } field: <perl_quotelike> { join "", @{$item[1]} } | /((?!,|=>).)*/ EOGRAMMAR use Data::Dumper; print Data::Dumper->Dump($PCSV_parser->file(join "", <DATA>)); __DATA__ comma,separated=>values with,q{a,perl,twist},/to them/