Acme-Cavaspazi
view release on metacpan or search on metacpan
lib/Acme/Cavaspazi.pm view on Meta::CPAN
package Acme::Cavaspazi;
# ABSTRACT: a simple function to remove spaces from strings or lists of strings
use 5.012;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
# Export subroutine cavaspazi
our @EXPORT = qw(cavaspazi);
$Acme::Cavaspazi::VERSION = "1.0.3";
sub cavaspazi {
my @results = ();
for my $i (@_) {
my $result = $i;
$result =~ s/ /_/g;
push @results, $result;
}
# if input is a scalar, return a scalar
if (@_ == 1) {
return $results[0];
} else {
return @results;
}
}
"VITULO";
__END__
=pod
=encoding UTF-8
=head1 NAME
Acme::Cavaspazi - a simple function to remove spaces from strings or lists of strings
=head1 VERSION
version 1.0.3
=head1 SYNOPSIS
use Acme::Cavaspazi;
my $input = "with spaces";
my $filepath = cavaspazi($input);
=head2 cavaspazi()
Remove spaces from the input string or the strings in the input array.
Used in scalar context, returns a scalar.
use Acme::Cavaspazi;
my $input = "with spaces";
print cavaspazi($input), "\n";
Used in list context, returns a list:
use Acme::Cavaspazi;
my @input = ("with spaces", "and more spaces");
print ":".join(cavaspazi(@input), "\n");
=head1 SEE ALSO
this module ships a binary script called L<cavaspazi> that can be used
to remove spaces from filenames or file contents.
=head1 ACKNOWLEDGEMENTS
This module is a tribute to the resilience of pioneer bioinformaticians
working with Perl to convert files and fix formats.
The bioinformaticians trained by I<Nicola Vitulo> are grateful for the
lack of spaces.
In those foggy times a script called C<cavaspazi.pl> became a pillar
of complex pipelines. It was cool, except it didn't remove spaces.
=head1 AUTHOR
Andrea Telatin <proch@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2023 by Andrea Telatin, Nicola Vitulo.
This is free software, licensed under:
The MIT (X11) License
=cut
( run in 1.372 second using v1.01-cache-2.11-cpan-54e63673c56 )