NAME

String::UpdateYears - Look for year or years range in string and update years

SYNOPSIS

use String::UpdateYears qw(update_years);

my $updated_or_undef = update_years($string_with_year, $opts_hr, $new_last_year);

SUBROUTINES

update_years

my $updated_or_undef = update_years($string_with_year, $opts_hr, $new_last_year);

Look for year or years range in string and update them.

Parameters:

C<$string_with_year> - Input string with year or range years.
C<$opts_hr> - Reference to hash with options. Possible options:
  C<prefix_glob> - Prefix glob from begin of string to year(s) part (default '.*').
  C<postfix_glob> - Postfix glob from year(s) part to end of string (default '.*').
C<$new_last_year> - New last year to update.

Returns undef if year or years range not found in string. Returns updated string if year or years range found in string.

EXAMPLE1

use strict;
use warnings;

use String::UpdateYears qw(update_years);

my $input = '1900';
my $output = update_years($input, {}, 2023);

# Print input and output.
print "Input: $input\n";
print "Output: $output\n";

# Output:
# Input: 1900
# Output: 1900-2023

EXAMPLE2

use strict;
use warnings;

use String::UpdateYears qw(update_years);
use Unicode::UTF8 qw(decode_utf8 encode_utf8);

my $input = decode_utf8('© 1977-2022 Michal Josef Špaček');
my $output = update_years($input, {}, 2023);

# Print input and output.
print 'Input: '.encode_utf8($input)."\n";
print 'Output: '.encode_utf8($output)."\n";

# Output:
# Input: © 1987-2022 Michal Josef Špaček
# Output: © 1987-2023 Michal Josef Špaček

SEE ALSO

perl-module-copyright-years

Tool for update copyright years in Perl distribution.

Pod::CopyrightYears

Object for copyright years changing in POD.

DEPENDENCIES

Exporter, Readonly.

REPOSITORY

https://github.com/michal-josef-spacek/String-UpdateYears

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2023 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.01