include interview as appendices; stop include outline - thoughtroam - website: student project to explore semantic web for learning aid

diff options

include interview as appendices; stop include outline

Diffstat (limited to 'stub')

0 files changed, 0 insertions, 0 deletions

_55" class="hl">

# put aside eventual trailing JabRef comments to not confuse bibclean

my ( $data, $comments ) = split /(?=\n\@Comment\{jabref-meta:)/, $content, 2;

# call bibclean on comment-stripped data

my @command = qw(bibclean -max-width 0);

my $newdata;

run3( \@command, \$data, \$newdata,

{ binmode_stdin => ':utf8', binmode_stdout => ':utf8' } )

or die "Failed to execute @command: $?";

# save/replace/spew cleaned data, reviving eventual trailing comments

if ($infile) {

open( FH, '>', $outfile || $infile ) or die $!;

print FH $newdata, $comments;

}

else {

print $newdata, $comments;

}

=encoding UTF-8

=head1 AUTHOR

Jonas Smedegaard C<< <dr@jones.dk> >>

=head1 COPYRIGHT AND LICENSE

This program is free software:

you can redistribute it and/or modify it

under the terms of the GNU Affero General Public License

as published by the Free Software Foundation,

either version 3, or (at your option) any later version.

This program is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY;

without even the implied warranty

of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

See the GNU Affero General Public License for more details.

You should have received a copy

of the GNU Affero General Public License along with this program.

If not, see <https://www.gnu.org/licenses/>.

=cut