ilyakooo0/nixpkgs
1
0
Fork 0
mirror of https://github.com/ilyakooo0/nixpkgs.git synced 2024-11-16 18:37:04 +03:00
Code Issues Projects Releases Wiki Activity

a little simpification (use File::Slurp)

Browse Source
This commit is contained in:
Volth 2017-06-22 19:08:19 +00:00
parent 00101eb7c9
commit 7fa29f39d1
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
pkgs/applications/editors/jetbrains/update.pl
View File

@ -1,30 +1,11 @@
#!/usr/bin/env nix-shell
#!nix-shell -i perl -p perl perlPackages.LWPProtocolhttps
#!nix-shell -i perl -p perl perlPackages.LWPProtocolhttps perlPackages.FileSlurp
use strict;
use List::Util qw(reduce);
use File::Basename qw(dirname);
use File::Slurp;
use LWP::Simple;
sub readFile {
my ($filename) = @_;
local $/ = undef;
open FILE, $filename or die "readFile($filename) failed: $!";
binmode FILE;
my $data = <FILE>;
close FILE;
return $data;
}
sub writeFile {
my ($filename, $content) = @_;
make_path(dirname($filename)) or die "$!" unless -d dirname($filename);
open FH, ">$filename" or die "writeFile($filename) failed: $!";
binmode FH; # do not emit \r
print FH $content;
close FH;
}
sub semantic_less {
my ($a, $b) = @_;
$a =~ s/\b(\d+)\b/sprintf("%010s", $1)/eg;
@ -88,6 +69,6 @@ sub update_nix_block {
return $block;
}
my $nix = readFile 'default.nix';
my $nix = read_file 'default.nix';
$nix =~ s/(= build\w+ rec \{.+?\};\n\n)/update_nix_block($1)/gse;
writeFile 'default.nix', $nix;
write_file 'default.nix', $nix;