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 from begin of string to year(s) part (default '.*'). C - 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 AUTHOR Michal Josef Špaček LICENSE AND COPYRIGHT © 2023 Michal Josef Špaček BSD 2-Clause License VERSION 0.01