Yet Another CPAN Grep

GrabzItClient ( G/GR/GRABZIT/GrabzItClient-3.5.6.zip, GRABZIT, 2024; MetaCPAN )

GrabzItClient/ajax/results.pl ( view source; MetaCPAN )

: application/json;charset=utf-8\n\n";

my $json;
@files = glob('./results/*');

foreach $file (@files) 
{
	if (index($file, ".txt") == -1) 
	{
		if ($json ne "")
		{
			$json .= ",";
		}


		$file =~ s/\.\.\///ig;
		$json .= "\"".$file."\"";
	}
}

print "[", $json, "]";

GrabzItClient ( G/GR/GRABZIT/GrabzItClient-3.5.6.zip, GRABZIT, 2024; MetaCPAN )

GrabzItClient/perl/GrabzIt/GrabzItTableOptions.pm ( view source; MetaCPAN )

eturn $self->{"tableNumberToInclude"};
}

#
# The format the table should be in: csv, xlsx or json
#
sub format
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {
        $self->{"fo

t every table on the web page into a separate spreadsheet sheet. Only available with the XLSX and JSON formats
#
sub includeAllTables
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {

GrabzItClient ( G/GR/GRABZIT/GrabzItClient-3.5.6.zip, GRABZIT, 2024; MetaCPAN )

GrabzItClient/GrabzItTableOptions.pm ( view source; MetaCPAN )

eturn $self->{"tableNumberToInclude"};
}

#
# The format the table should be in: csv, xlsx or json
#
sub format
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {
        $self->{"fo

t every table on the web page into a separate spreadsheet sheet. Only available with the XLSX and JSON formats
#
sub includeAllTables
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {

GrabzItClient ( G/GR/GRABZIT/GrabzItClient-3.5.6.zip, GRABZIT, 2024; MetaCPAN )

GrabzItClient/perl/ajax/results.pl ( view source; MetaCPAN )

: application/json;charset=utf-8\n\n";

my $json;
@files = glob('./results/*');

foreach $file (@files) 
{
	if (index($file, ".txt") == -1) 
	{
		if ($json ne "")
		{
			$json .= ",";
		}


		$file =~ s/\.\.\///ig;
		$json .= "\"".$file."\"";
	}
}

print "[", $json, "]";

GrabzItClient ( G/GR/GRABZIT/GrabzItClient-3.5.6.zip, GRABZIT, 2024; MetaCPAN )

GrabzItClient/GrabzIt/GrabzItTableOptions.pm ( view source; MetaCPAN )

eturn $self->{"tableNumberToInclude"};
}

#
# The format the table should be in: csv, xlsx or json
#
sub format
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {
        $self->{"fo

t every table on the web page into a separate spreadsheet sheet. Only available with the XLSX and JSON formats
#
sub includeAllTables
{
    my $self = shift;   
    if (scalar(@_) == 1)
    {