File Coverage

bin/random-string

Criterion	Covered	Total	%
statement	50	51	98.0
branch	20	22	90.9
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	76	79	96.2

#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage;
use Data::Random::String::Matches;

our $VERSION = '0.02';

# Parse command line options
my %opts = (
	count	  => 1,
	length	 => undef,
	smart	  => 0,
	unique	 => 0,
	separator  => "\n",
	help	   => 0,
	man		=> 0,
	version	=> 0,
	examples   => 0,
);

GetOptions(
	'count|c=i'	 => \$opts{count},
	'length|l=i'	=> \$opts{length},
	'smart|s'	   => \$opts{smart},
	'unique|u'	  => \$opts{unique},
	'separator|S=s' => \$opts{separator},
	'help|h|?'	  => \$opts{help},
	'man|m'		 => \$opts{man},
	'version|v'	 => \$opts{version},
	'examples|e'	=> \$opts{examples},
) or pod2usage(2);

# Handle special options
if ($opts{version}) {
	print "random-string version $VERSION\n";
	exit 0;
}

pod2usage(1) if $opts{help};
pod2usage(-exitval => 0, -verbose => 2) if $opts{man};

if ($opts{examples}) {
	show_examples();
	exit 0;
}

# Get the pattern from command line
my $pattern = shift @ARGV;

unless (defined $pattern) {
	print STDERR "Error: Pattern required\n\n";
	pod2usage(1);
}

# Validate options
if ($opts{count} < 1) {
	die 'Error: count must be at least 1';
}

# Decode escape sequences in separator
$opts{separator} =~ s/\\n/\n/g;
$opts{separator} =~ s/\\t/\t/g;
$opts{separator} =~ s/\\r/\r/g;
$opts{separator} =~ s/\\0/\0/g;

# Create generator
my $gen = eval {
	Data::Random::String::Matches->new($pattern, $opts{length});
};

if ($@) {
	die "Error creating generator: $@";
}

# Generate strings
my @results;
for (1 .. $opts{count}) {
	my $str = eval {
		$opts{smart} ? $gen->generate_smart() : $gen->generate();
	};

	if ($@) {
		die "Error generating string: $@";
	}

	push @results, $str;
}

# Output results
print join($opts{separator}, @results);
print "\n" unless $opts{separator} =~ /\n$/;

exit 0;

sub show_examples {
	print <<'EXAMPLES';
Examples:

  # Generate a single 4-digit number
  random-string '\d{4}'

  # Generate 10 API keys
  random-string 'AIza[0-9A-Za-z_-]{35}' --count 10

  # Generate 5 email addresses
  random-string '[a-z]{5,10}@[a-z]{5,10}\.com' -c 5

  # Generate phone numbers with custom separator
  random-string '\d{3}-\d{3}-\d{4}' -c 3 -S ', '

  # Generate uppercase letters (3 characters)
  random-string '[A-Z]{3}'

  # Generate password-like strings
  random-string '[A-Za-z0-9!@#$%]{16}' -c 5

  # Generate UUID-like strings
  random-string '[0-9a-f]{8}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{4}-[0-9a-f]{12}'

  # Use alternation
  random-string '(cat|dog|bird)' -c 10

  # Use backreferences (repeating pattern)
  random-string '(\w{3})-\1' -c 5

  # Generate credit card test numbers
  random-string '4\d{15}' -c 3

  # Use smart mode for complex patterns (faster)
  random-string '[A-Z]{3}\d{4}' -c 100 --smart

Common patterns:
  \d{4}					- 4-digit PIN
  [A-Z]{2}\d{3}			- License plate style
  \d{3}-\d{3}-\d{4}		- Phone number
  [a-z]+@[a-z]+\.com	   - Simple email
  [A-Fa-f0-9]{32}		  - MD5 hash
  [A-Za-z0-9]{20}		  - Random token
  (foo|bar|baz)			- One of three options
  (\w{4})-\1			   - Repeated pattern

EXAMPLES
}

__END__